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COMO O SYSDATA III. 
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SYSDATA HI SYSDATA HI 
Aqui, tudo o que Você espera Características técnicas. 
de um grande micro. Para aqueles que querem 

saber tudo. 


Total compatibilidade com o 
TRS-80 Modelo III da Radio 
Shack. 

Processador Z-B0-A. 

Vídeo de 16x 64 ou 16x 32 
(linhas x colunas). 
Alimentação de 110 V ou 220 V. 
Teclado alfanumérico de 

69 teclas. 

Teclado numérico reduzido 
com 4 teclas de funções. 
Gráficos com 128 x 48 pontos 
no vídeo. 

Aceita até duas R$-232-C 
(Sincronas ou Assincronas). 


Compatível com o TRS-80 
Modelo III da Radio Shack. 
Gabinete, teclado e CPU em 
módulos independentes. 
Versões de 64 a 128 KBytes de 
RAM, 16 KBytes de ROM. 
Teclado profissional com 
numérico reduzido e 4 teclas 
de funções. 

Sistema operacional de disco 
DOS Hl ou CP/M 2.2. 
Caracteres gráficos. j 
Vídeo composto com 18 MHZ. 1 + E a - 
de faixa de passagem. 
Saída para impressora 





paralela. Modem a angra 

Saída paralela para 

SYSDATA HI PI impressora. 

' aca controladora para até 

Software disponível 4 drives de 5 e 1/4”, dupla 
variado. Escolha o seu. densidade (180 KBytes 

Videotexto (TELESP). face), face simples (dupla face 

Projeto Cirandão opcional). 

(EMBRATEL). e 

Rede de telex. Opções futuras: 


Vídeo compatível 16 x 64, 
16x 32,24 x 800u 24x 40 
(linhas x colunas). 
Expansão até 256 KBytes 
de RAM. 

Alta resolução gráfica e cor. 
Interface para acionamento de disco rígido 
(Winchester) de 5, 10 ou 20 MBytes. 
Debugador. Clock dobrado (4,0 MHZ). 
aa Total compatibilidade com o ese 
jordstar, Mad. IV. 
e muitos outros. am CP/M versão 3.0. 


po 
£º SYSDATA 


Sysdata eletrônica ltda. 01155 - Av. Pacaembú, 788 - Pacaembú - SP - Fone: (011]826.4077 


Sistema Gerenciador de 


Banco de Dados (SGBD), 

Compiladores Cobol, 

Fortran, Pascal, Basic, Forth, 

Lisp e Pilot. 

Editor de textos. Editor de Assembler. 
Desassemblador. 
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muito badalado ultimamente, inclusive no meio dos usuários pessoais. 

São os Bancos de Dados que, com a entrada no ar do Cirandão, 
tornam realidade para o uso doméstico as perspectivas de acesso a fontes 
complementares de informação. 

Aproveitamos a oportunidade, também, para falar sobre os 
administradores de dados, isto é, os sistemas que gerenciam as Bases de 
Dados, no caso as criadas em microcomputadores. Neste particular, muitas 
vezes o tema torna-se confuso, visto existirem no mercado dezenas de 
produtos, entre nacionais e norte-americanos, categorizados como Data- 
Bases; Bancos de Dados; SGBD (Sistemas Gerenciadores de Bancos de 
Dados); DBMS (DataBase Management Systems) ou nomes semelhantes. De 
quebra, os usuários de equipamentos compatíveis com o TRS-80 modelo III 
poderão contar com um programa de alta qualidade: um SGBD 
desenvolvido por nosso colaborador Ivan Camilo Cruz. 

Registramos, ainda, nosso prazer em contar neste número com a 
presença de quatro profissionais de peso nas páginas de MS: são eles os 
professores Antonio Furtado e Daniel Menascé, da PUC-RJ, ambos 
profundos conhecedores da matéria Banco de Dados; o professor Jorge da 
Cunha Pereira Filho, ativo participante do mercado editorial, com diversos 
títulos publicados na área de Informática, e nossa companheira Luzia 
Portinari Greggio, da revista Informática & Administração e membro da 
peca da Andei, que aqui escreve sobre as questões da privacidade do 
cidadão. 

Todo este material foi cuidadosamente reunido para que nossos leitores 
possam, de uma vez, entender todos os detalhes desta aplicação em micros, 
atualizando-se sobre os produtos e serviços encontrados no mercado 
brasileiro. 

e Também nesta edição inauguramos um novo espaço, o BANCO DE 
SOFTWARE, ou simplesmente Banco. O objetivo desta área será alocar os 
programas menores e mais simples com uma preocupação, tanto no aspecto 
visual quanto no texto, de melhor utilizar nosso espaço físico, desta forma 
possibilitando uma revista mais dinâmica e uma maior rapidez na veiculação 
do grande volume de material de qualidade que nos chega. Vale dizer que no 
número anterior nos referimos à nova seção como Buffer, porém 
posteriormente admitimos que Banco seria um nome mais objetivo. Assim, 
ficamos aguardando opiniões e sugestões. 

* Para finalizar, gostaríamos de dividir com nossos amigos a alegria por 
nossa colega Graça Santos ter recebido o prêmio Imprensa Andei/Novadata 
por seu trabalho “Editores de Texto"; publicado em nossã edição de 
setembro de 84. Consideramos o prêmio um justo reconhecimento pelo 
trabalho de equipe que temos desenvolvido nos últimos anos, visando levar 
a você uma MS cuda vez melhor. 


E: edição de MICRO SISTEMAS trata de um assunto que vem sendo 
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À Compumicro 


vai detxar yocê 
com a melhor 
Impressão 


o Unitron API 





Venha assistir a uma demonstração do 
Unitron acessando mais de 300 bancos 
de dados nos EEUU e França. E mais: 


6 PROJETO ARUANDA DO SERPRO (CTELEMICRO ) 


€ PROJETO CIRANDÃO DA EMBRATEL 

SO BANCOS DE DADOS PARTICULARES 

S TRANSFERÊNCIA TOTAL DE ARQUIVOS 
ENTRE O UNITRON E IBM-PC COMPATIVEIS, 









Não existe nada mais 
pessoal do que uma impressão 
digital. Ela é única. Ninguém 
tem igual. O mesmo acontece 
quando você compra o seu 
UNITRON AP II na 
COMPUMICRO. 

Aqui você tem um atendi- 
mento personalizado e exclusivo. 

O que este atendimento 
tem de exclusivo? É que na 
COMPUMICRO você tem todas 
as informações do produto 
antes mesmo da compra. Ou 
seja, nossa equipe de analistas, 









todos de nível superior, estu- 
da o seu caso e indica-lhe a 
melhor configuração para as 
suas necessidades. Se você não 
puder vir ao nosso escritório, 


onde será recebido com todo 
conforto e terá à sua disposi- 
ção um analista com todo o 
tempo disponível para . 
mostrar-lhe o produto, nós ire- 
mos até você. E após a compra 
continuamos oferecendo nossa 
assessoria, prestando-lhe assis- 
tência técnica, etc... 

E sabe quanto você paga 
a mais por isso? Nada. 

Venha comprovar. 
Estamos esperando por você 

Pessoalmente. 





INFORMÁTICA EMPRESAR 


Rua Sete de Setembro, 99-11 


IAL LTDA. 

andar 
Tel: PBX (021) 224-7007 

CEP 20050 - Rio de Janeiro - RJ 
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O sorteado deste mês, que receberá uma 
assinatura de um ano de MICRO SISTEMAS, 
é Onofre Junior de Souza, de Minas Gerais. 


Leitor assíduo de MICRO SISTEMAS, 
conceituadíssima revista, venho através des- 
ta informar ao colega e colaborador Hendy 
Takeshi Yabiku (MS nº 28, pág. 18: Ciclo- 


tron: supere esta barra!) que o seu programa 
Ciclotron foi pirateado. O autor de tal fa- 
çanha é um aluno do Colégio Objetivo: 
Eduardo Forner. 

Aproveitando-se do software alheio, usou 
como veículo o jornal A cabeça, do pró- 
prio colégio, para editar o programa em que 
ele se diz autor. Na cópia do programa, ele 
simplesmente tirou as linhas de 1 até 50,e 
de 1000 a 2000, que são explicações e limi- 
tes de pontos. Nas linhas 200 e 300, a va- 
riável P foi modificada para 500, e nas li- 
nhas 400 e 450, o GOTO 20 foi transfor- 
mado em GOTO 50 e o laço diminuído. 

Como a equipe de MS sabe que é impos- 
sível dois programas safrem iguais até no nú- 
mero das linhas, está bem claro que Eduar- 
do Forner não passa de mais um pirata. Pe- 
diria a vocês que agissem de forma drásti- 
ca, pois na página do Editorial está escrito 


sistélco 


Assinale com um x a sua opção 
ASSINATURAS: 
D NOVA 





OD RENOVAÇÃO 


Para novas assinaturas, preencha o cupom anexo. 
Para renovação, basta colar a etiqueta que acom- 


que “todos os direitos de reprodução do 
conteúdo da revista estão reservados e qual- 
quer reprodução, com finalidade comercial 
ou não, só poderá ser feita mediante auto- 
rização prévia”. 

Sei também que é impossível MS mandar 
a marinha brasileira atrás destes piratas, mas 
se cada leitor fizer a sua parte, já será de 
grande valia para o contínuo progresso da 
Informática brasileira, não somente entre- 
gando os piratas, mas colaborando, opinan- 
do e sugerindo idéias. 
Marco Aurélio A, C. Silva 
Goiânia-GO 


Bom, antes de mais nada, queremos agra- 
decer por sua prestação de serviço, Marco. 
São pessoas como você que nos fazem acre- 
ditar em um horizonte mais claro para o 
software nacional. Para você imaginar a tur- 
bulência que existe nesta área, recentemente 
constatamos que diversos programas publi- 
cados em MS estavam sendo comercializa- 
dos em fita K-7, sem que citassem sequer a 
fonte ou os verdadeiros autores! Realmente, 
não há força naval que possa combater a fal- 
ta de ética e de respeito à verdade. Estes fa- 
tos ajudam a demonstrar que a questão dos 
direitos autorais na produção de software 
não está restrita somente a uma legislação 
específica, mas também a uma noção ele- 
mentar de princípio moral! Mas vamos dei- 
xar que as providências cabíveis sigam pelo 
caminho pertinente. 

Quanto à sua carta, remetemos uma có- 
pia para o Colégio Objetivo e outra para o 
autor, nosso amigo Hendy Takeshi. Até o 
momento não recebemos nenhum comuni- 
cado do Colégio, mas recebemos a opinião 
do Hendy, que a seguir transcrevemos: 

“Nosso colega Marco Aurélio está do 


nosso lado, assim como muitos outros lei- 
tores de MS. Mas, infelizmente, existem 
muitos piratas (e plagiadores) prontos para 
atacar ao nosso menor descuido. Mas exis- 
tem leis para nos proteger. 

Talvez a pessoa responsável por este ato 
estúpido (não vejo outro termo) não esteja 
em seu juízo perfeito: querendo dar uma de 
inteligente, acabou mostrando que é com- 
pletamente ignorante, e não teve miolos su- 
ficientes para desenvolver um programa, 
nem para pensar nas possíveis consequên- 
cias que este ato poderia trazer. A estas pes- 
soas, o meu desprezo. Ao Marco Aurélio, 
meus mais sinceros agradecimentos.” 

Hendy Takeshi Yabiku 
São Paulo-SP 


Parabéns pela MS. Um especial para- 
béns à Rodada MS e ao colega PY1DWM- 
Quito: estou gostando muito. Pena que a 
Rodada MS do nº 33: Arquivo de comu- 
nicados, não foi para a linha Sinclair (tenho 
um TK-85 e cada um puxa a sardinha para 
o seu lado . . . Será que não dá para adaptar 
o programa da Rodada MS nº 33, do Al- 
cione Sperandio, para o TK? 

Muito bons os programas Aventuras na 
selva e Aventuras em Serra Pelada. Conti- 
nuem. (Consegui sair da se/va depois de uma 
semana, mas no Serra Pelada ainda não con- 
segui achar a pepita, apesar de ter modifi- 
cado a ação 84. A dica seria garimpar na 
terceira hora do dia 112) 

No programa Penosa travessia (MS nº 
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AO ASSINANTE 


Em caso de mudança de endereço ou 


panha a sua revista no espaço reservado sobre o 
cupom. Em ambos os casos, remeta, juntamente 
com o cupom, e/ou etiqueta um cheque nominal à 
ATI EDITORA LTDA. no valor de Cr$ 39.000,00 
para os nossos escritórios no Rio de Janeiro ou São 


Paulo. 














MUDANÇA DE ENDEREÇO 


Preencha o cupom ao lado com o novo endere- 


Endereço: 


Cidade: 


ço e cole no espaço acima a etiqueta que acompa- 
nha a sua revista. Remeta-nos, para os endereços 


abaixo. 


Informática Editora Ltda. 


Estado: 


renovação de assinatura, cole aqui, 
etiqueta de endereçamento. 


SÃO PAULO — Rua Oliveira Dias, 153, CEP: 01043, Tels.: (011) 853-7758 e 881-5668 
RIO DE JANEIRO — Av. Pres. Wilson, 165 — Gr. 1210/16, CEP:20030, Tels.: (021) 262-5259 e 262-6437 





28, pág. 54), as alterações do leitor Ronaldo 
L. Burgatti (publicadas na Seção Cartas de 
MS nº 33) não funcionaram. Fiz as seguin- 
tes modificações e foi batata: 
15 FOR F=1 TO 57 
17 PRINT“ ";CHRSM;"  *”; 
34 PRINTATA,B; “$"; ATA,B; “ "; 
48 GOSUB 29 

Por fim, gostaria de dizer que prefiro ver 
em MS programas aplicativos ou então jogos 
do tipo que citei anteriormente. 
José Reynaldo da Fonseca (PY2JRF) 
Avaré-SP 


Primeiramente, a equipe agradece os elo- 
gios e o PYIDWM-Quito aproveita para lhe 
mandar um forte 73. Agora, com relação à 
conversão do programa Arquivo de comuni- 
cados, devemos lhe informar que: analisando 
o espaço disponível em nossa revista, e cons- 
tatando que somos uma equipe pequena fa- 
ce ao desenvolvimento acelerado de MS, de- 
cidimos que MICRO SISTEMAS evitará, 
dentro do possível, fazer adaptações e con- 
versões de programas já publicados. Resol- 
vemos, desta forma, dar prioridade absoluta 
às criações realmente originais. É interessan- 
te frisar que esta decisão foi tomada, em 
grande parte, a partir das sugestões e coloca- 
ções da maioria dos nossos leitores. De qual- 
quer forma, deixamos aqui registrada a sua 
sugestão. 


Com referência ao programa Aventuras 
em Serra Pelada, para não estragar o espírito 
do jogo, vamos lhe dar somente esta dica 
(não teria nenhuma graça se entregássemos o 
ouro ao bandido, não acha?): garimpe sem- 
pre, insista que não há erro, além do citado 
na ação 84, conforme publicamos na Seção 
Cartas de MS nº 33. Por último, agradece- 


mos por nos enviar as suas modificações pa- 
ra o Penosa travessia: obrigada e escreva 
sempre. 


ESQUEMA E HOBBY 


Sou proprietário de um TK-82C (com 
expansão de 16 K) e venho acompanhando 
o projeto MICRO BUG, o qual tenho gosta- 
do muito, principalmente pela forma com 
que vem sendo apresentado. Meus para- 
béns pelo belíssimo trabalho do CPD de 
MICRO SISTEMAS: com o MICRO BUG 
meu TK ficou mais poderoso. 

Gostaria também de estudar o hardware 
do meu equipamento, por isso, peçolhes 
que me informem aonde posso conseguir o 
esquema interno do TK, pois no manual 
existe apenas uma foto da parte interna do 
computador. 

Onofre Júnior de Souza 
Belo Horizonte-MG 


Desculpe-nos, Onofre, mas não temos co- 
mo auxiliá-lo. Em nossa Seção de Cartas de 
MS nº 34, publicamos uma carta que nos 
pedia a mesma coisa. E lá também afirmá- 
vamos que não tínhamos como fornecer 
uma informação que dependia exclusiva- 
mente dos fabricantes de microcomputa- 


dores. Infelizmente, até o momento, os fa”, 


bricantes não mudaram a sua política de res- 
trição de informações aos usuários e veícu- 
los especializados, conforme pode ser veri- 
ficado em nossa reportagem sobre Hobbys- 
tas (publicada em MS nº 37, pág. 12), 
onde alguns fabricantes se posicionam cla- 


ramente com relação a este assunto. Dá uma 
lida, ok? 


SUGESTÕES 


Pretendo fazer duas sugestões, que con- 
sidero uma modesta contribuição para me- 
lhorar ainda mais esta inseparável revista (e 
espero que seja logo atendido): publiquem 
mais jogos, muitos jogos para a gente se dis- 
trair bastante, pois, afinal, ninguém é de fer- 
ro! Mas não é só esta não (isso para vocês 
verem que eu também gosto de assuntos sé- 
rios), gostaria também de ver em MS artigos 
abordando alguns temas do momento: redes 
locais, teleprocessamento, modems, banco 
de dados... 

Jesuino Cavalcanti Dimas 
Porto Alegre-RS 


Apreciaria muito se MICRO SISTEMAS 
publicasse uma edição especialmente voltada 
para área de: Telecomunicações, pois sinto 
falta deste tipo de informação, visto que a 
cada dia cresce o número de aplicações liga- 
das às Comunicações e à Informática. 

Fábio Lucena de Souza 
Botucatu-SP 


Envie suas correspondências para: ATI — 
Análise, Teleprocessamento e Informática 
Editora Ltda. Av. Presidente Wilson, 
165/gr. 1210, Centro, Rio de Janeiro/RJ, 
CEP 20030, Seção Cartas/ Redação 

MICRO SISTEMAS. 





A GUARDIAN GARANTE 


ENERGIA ATODA PROVA. 






PARAGRAFICS 


Geratron* 


Estabilizadores de tensão 


À PROVA DE FALHAS. 


— 


GERADOR ELETRÔNICO GERATRON: 


Fornece energia para microcomputado- 
res da linha Apple e TRS-80, em casos 
de emergência. Capacidade de 200 VA, 
com autonomia de até 90 minutos. 


ESTABILIZADORES DE TENSÃO 
À PROVA DE 
FLUTUAÇÕES E TRANSIENTES. 
Ultra-rápidos, protegem o seu CPD con- 
travariações da rede ematé + 22% ees- 
tabilizam a saída em + 1%. Incorporam 
filtro na entrada, transformador isolador 
echave de transferência para a rede. Ca- 
pacidade de 0,25 KVA a 100 KVA. 





Sistemas No Break 


SISTEMA NO BREAK GUARDIAN: 

À TODA PROVA. 

É a solução mais completa contra tran- 
sientes, flutuações e falta total de ener- 
gia. A Linha Básica varia de 2,5 KVA a 
100 KVA. Dispõe de chave estática de 
saída e utiliza técnica de síntese da for- 
ma de onda senoidal, com tiristores. 

A Linha Econômica é a solução para 
CPD's de pequeno porte, com capacida- 
de de 0,25 KVAa 5 KVA 

Não deixe que a má qualidade da energia 
elétrica estrague os seus programas 
Ligue agora mesmo para a Guardian 





GUARDIAN 


Equipamentos Eletrônicos Ltda. 


Rua Dr. Garnier, 579 

Rio de Janeiro - CEP 20.971 

Rio: PABX (021) 261-6458 - (021) 201-0195 
Telex: (021) 34.016 

São Paulo: (011) 270-3175 


REPRESENTANTES EM TODO O BRASIL 











A falta de uma boa apresentação pode comprometer um 
ótimo trabalho, não acham”? Com essas duas rotinas para 
micros Sinclair este problema está resolvido 








Um toque de elegância 
em seus programas 


Alberto M. C. Sarabando 


om o passar do tempo percebe- 

mos que um bom programa pre- 

cisa também de uma boa apre- 

sentação. Com figuras elucida- 
tivas, títulos grandes e marcantes, instru- 
ções adequadas de manipulação, efeitos 
bonitos, enfim, uma produção elegante. 
Tudo isso causa um impacto visual ac 
usuário do programa, o que provoca, na- 
turalmente, maior interesse. 

Temos notado que bonitas apresenta- 
ções funcionam como a capa de uma re- 
vista, o aspecto de uma pessoa ou a fa- 
chada de uma casa. Para que alguém se- 
ja levado a entrar em um programa pre- 
cisa estar satisfeito com sua aparência 
externa. Não há nada mais infeliz que 
um programa bem elaborado, mas com 
uma apresentação pobre, sem criativida- 
de. 

Criar ilustrações e editar textos em 
um micro da linha Sinclair exige muita 
dedicação e paciência. Para se elaborar 
uma apresentação atraente deve-se im- 
primir caracteres na tela que formem 
figuras harmoniosas, títulos bonitos e 
frases bem colocadas. Mas para isso ha- 
verá muito a fazer. O programador dis- 
pensará horas de trabalho criando os de- 
senhos, centralizando-os na tela. Deverá 
verificar os tamanhos e tipos de letras 
dos títulos, armar as frases, separá-las 
com espaços distintos etc. Há uma infi- 
nidade de outras pequenas tarefas que 
um usuário deve se habituar. 

Alguns programadores, geralmente, 
fazem um rascunho em papel quadricu- 
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lado à parte para só então utilizar os co- 
mandos do micro e tornar real a sua obra 
na tela, com as correções necessárias de- 
pois de verificar os efeitos de vídeo. 

Foi pensando nessas dificuldades que 
elaboramos este programa, que auxilia o 
usuário a criar interessantes efeitos de 
tela e bonitas apresentações, com extre- 
ma facilidade e rapidez, sem necessidade 
de esboços em papel à parte. Ele poderá 
usar diretamente o vídeo e gravar a apre- 
sentação (tela) em qualquer programa 
que quiser, como veremos mais adiante. 


USANDO TODO O EQUIPAMENTO 


A partir de agora você terá a seu dis- 
por uma série de artifícios, técnicas prá- 
ticas e velocidade de programação que a 
linguagem Assembler proporciona. E 
não pode imaginar a utilidade do progra- 
ma, que desenhará na tela em todas as 
direções, com a rapidez que desejar, im- 
primindo qualquer um dos caracteres do 
teclado, inclusive em modo gráfico no 
vídeo. Haverá ainda instruções auxilia- 
res, como cursores, apagadores de erros, 
inversão de vídeo etc. 

Além de tudo esse programa ficará 
protegido no topo da memória, o que 
lhe dará liberdade de ler um outro pro- 
grama da fita cassete, criar uma ou mais 
imagens conforme desejar, gravá-lo jun- 
to com essas imagens, ler outro progra- 
ma e repetir tudo de novo, que a rotina 
em Assembler não será afetada. 


A gravação criada por você será em 
forma de matriz no sistema BASIC. As- 
sim, não será necessário nenhum outro 
comando além de um simples PRINT, e 
a impressão surgirá na tela. O programa 
é armazenado em matriz, por exemplo, 
DIM AS, DIM BS$, DIM CS etc. e Será 
chamado por PRINT AS$, PRINT BS, 
PRINT Cs. 

Um outro aspecto é necessário desta- 
car: é quanto à economia de memória 
que este programa proporciona. O arma- 
zenamento em uma matriz é mais econô- 
mico que utilizar as linhas com PRINT 
e PLOT para formar a mesma tela. 


PROTEÇÃO DO PROGRAMA 


Funcionando totalmente em lingua- 
gem Assembler, ele é digitado para uma 
linha REM e com uma simples instrução 
ficará protegido acima da RAM TOP 
(MENTOP). Ao mesmo tempo, dará um 
comando NEW em toda a memória do 
micro que, para todos os efeitos, pensará 
que não armazena nenhum programa na- 
quele momento. Por esse motivo, você 
poderá ler outro programa, gravá-lo ou 
apagá-lo quantas vezes quiser, que a roti- 
na localizada no topo da memória não 
será afetada. E com toda a proteção, não 
usará mais que 600 bytes, o que não re- 
presenta quase nada em termos de em- 
prego de memória. 

Uma das primeiras tarefas é digitar a 
listagem 1, com as seguintes observações: 
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1) A linha 1 (REM) deverá ter no míni- 
mo 610 caracteres quaisquer. 

2) Se você quiser, poderá introduzir as 
linhas S e 7 através de um Monitor As- 


sembler. 

3) As linhas 3/4/6/8/9/10/11/12/13/14/ 
15/16 servem apenas para a construção 
e compilação, para a linguagem Assem- 
bler, dos códigos das linhas 5 e 7. 

4) É imprescindível que você digite a li- 
nha 1 e a linha 2, mesmo se você utilizar 
um compilador. Repetindo: inclusive a 
linha 2, porque sem ela o sistema não 
funcionará normalmente. 

Quando terminar de digitar a lista- 
gem 1, verifique se todas as linhas foram 
corretamente digitadas, principalmente 
os códigos Assembler das linhas 5 e 7. 
Seria conveniente que você gravasse o 
programa, assim como está, por precau- 
ção. Caso você já o gravou ou tenha a 
certeza de que ele está perfeito, digite 
RUN ENTER (ou RUN NEW LINE) e 
aguarde alguns segundos porque as li- 
nhas 5 e 7 estarão sendo compiladas pa- 
ra a linha 1. Depois disso pode dar um 
LIST e ver como a linha 1 mudou. 

Então apague as linhas de 3 a 16, dei- 
xando as de número 1 e 2, e acrescente 
a estas linhas: 


3 PRINT AT 5,5;"PROGRAMA AUXILIAR 
LIAR PARA", "DESENHAR E ESCREVER 
EM ASSEMBLER";AT 10,0;"ESTE PROG 
RAMA SERA PROTEGIDO NA RAMTOP."; 
AT 14,5;"PARA UTILIZA-LO DIGITE" 
:AT 16,9;"RAND USR 32000" 

4 FOR N=1 TO 300 

5 NEXT N 

6 RAND USR 16514 

7 SAVE "SUPERTELA" 

8 RUN 


O programa está pronto e deverá ser 
gravado em definitivo. Quando você o 
ler da fita cassete, ele dará a apresenta- 
ção contida na linha 3 com uma pausa. 
Em seguida, protegerá o programa acima 
da RAMTOP, dando um NEW nestas li- 
nhas. Então poderá agora comandá-lo 
com um RAND USR 32000 e criar todo 
o tipo de tela que imaginar com os co- 
mandos que iremos aprender logo adiante. 

Para arquivar a “tela” que você criou 
ou salvá-la junto com algum programa, 
proceda da seguinte maneira: leia o pro- 
grama da fita cassete e inclua nele a lis- 
tagem 2. 

Não é necessário que aslinhas tenham 
aquela exata numeração, mas é preciso 
que estejam sempre em sequência. 

Quando incluir a listagem 2 em um 
programa para o qual deseja criar uma 
apresentação, deverá dar um GOTO para 
a linha em que estiver o comando RAND 
USR 32000 e fazer o desenho. Quando 
você pressionar a tecla C ou V retornará 
ao sistema BASIC para a linha subse- 
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quente ao comando, armazenando a tela 
em uma matriz, no modo FAST, o que 
levará alguns segundos. Pronto, o vídeo 
está armazenado, no caso, na matriz 
DIM DS, e se você digitar PRINT DS 
verá o seu desenho. Se quiser, poderá 
apagar as linhas da listagem 2 e incluir a 
linha PRINT DS$ antes de salvar o pro- 
grama. 


OBS.: 1) É possível armazenar outras te- 
las. Para isso, depois de arquivar na ma- 
triz DS, mude-a para E$, F$ etc., dan- 
do as instruções necessárias, por exem- 
plo, PRINT DS, PRINT ES, respectiva- 
mente. 

2) Importante. Depois de armazenar a 
apresentação em uma tela e gravar O 
programa, nunca mais digite RUN para 
rodar o programa, para não limpar o ar- 
quivo da matriz. Digite apenas GOTO 1 
ou dê um GOTO para a linha onde se lo- 
caliza a impressão da matriz. Verifique, 
inclusive, se no programa não há algum 
comando RUN. Em caso positivo, tro- 
que-o por GOTO 1 ou GOTO IMPRES- 
SAO DA MATRIZ. 

Bem, agora que você tem o programa 
gravado, sabe para que serve e conhece 
suas características, vamos ver como ele 
funciona. 

O programa consta de duas rotinas 
principais. Uma para desenhar, através 
de PLOT/UNPLOT e outra para escrever, 
utilizando os caracteres do teclado. Pa- 
ra melhor compreensão, vamos estudá- 
las separadamente. 


ROTINA PARA DESENHAR 


Como você já sabe, para chamar essa 
rotina é necessário digitar RAND USR 
32000. Após essa instrução aparecerá 
um pequeno quadrado, que chamaremos 
de ponto, no canto inferior esquerdo da 
tela. Este ponto estará piscando fraca- 
mente e você poderá guiá-lo pela tela atra- 
vés das teclas de 1 a 8 Mas ele não será 
impresso porque está em UNPLOT. Pa- 
ra que haja impressão é necessário que 
você digite P para passar para PLOT e 

uando quiser retornar para UNPLOT 
igite U. Eis as instruções possíveis atra- 
vés das teclas: 
P — Plota o ponto. No início o sistema 
está em UNPLOT. 
U — Unplota o ponto. É a função inver- 
sa de P. Cria espaços ou apaga pontos 
plotados. 
1 — Direciona o ponto na diagonal no 
sentido para cima à esquerda. 
2 — Direciona o ponto na diagonal no 
sentido para cima à direita. 
3 — Direciona o ponto na diagonal no 
sentido para baixo à direita. 
4 — Direciona o ponto na diagonal no 
sentido para baixo à esquerda. 
5 — Direciona o ponto no sentido hori- 
zontal à esquerda. 


6 — Direciona o ponto na vertical no sen- 
tido para baixo. 

7 — Direciona o ponto na vertical no sen- 
tido para cima. 

8 — Direciona o ponto no sentido hori- 
zontal à direita. 

A — Aumenta a velocidade de impressão. 
A cada leve toque a velocidade é acelera- 
da. Mantendo a tecla pressionada aumen- 
ta-se a aceleração. 

D — Diminui a velocidade. É exatamen- 
te o inverso de A. 

L — Limpa a tela. Além disso, todo o sis- 
tema é zerado e funciona como se esti- 
vesse começando naquele exato momen- 
to. 

C — Copia a tela. Após pressionar esta 
tecla, o sistema retornará ao BASIC ar- 
mazenando a matriz (Listagem 2). 

V — Copia a tela em vídeo inverso. O 
mesmo que C só que há inversão de vídeo. 
E — Aciona a rotina para escrever (Edi- 
tar texto). Entrada na rotina 2. 


OBSERVAÇÕES: 


1) Para facilitar a compreensão de quem 
está se iniciando, note que nos quadri- 
nhos menores das teclas de 1 a 8 as setas 
indicam o sentido de movimentação. 


2) Asteclas la 8€e Ae D têm auto-re- 
petição, isto é, enquanto estiverem pres- 
sionadas, realizarão sua função constan- 
temente. 

3) O programa começa com uma veloci- 
dade média. A auto-repetição permite 
até 200 velocidades diferentes com os 
comandos A e D. 


ROTINA PARA ESCREVER 


Essa rotina, como já vimos, é aciona- 
da pela tecla E, na rotina anterior. Apa- 
recerá agora um cursor gráfico no canto 
esquerdo superior, que corresponde ao 
caráter gráfico de código 136 (veja o 
manual). Você poderá guiá-lo para a di- 
reita ou para a esquerda nos cantos su- 
periores. 

A impressão dos caracteres é auto- 
mática após o pressionar da tecla e se ini- 
cia na posição do cursor no vídeo. Mas 
antes de mostrarmos as funções possí- 
veis nesta rotina, veremos o significado 
de cada cursor gráfico, identificado pelo 
código do manual do usuário. 

136 — É o primeiro que aparece e passa 
por cima dos caracteres impressos sem 
apagá-los. Os caracteres impressos com 
esse cursor serão impressos em modo 
normal. 

128 — Ele apaga os caracteres pelos quais 
passar. Os caracteres são impressos em 
modo normal. 

137 — Ele passa por cima dos caracteres 
sem apagá-los. Escreve em modo gráfico. 
138 — Apaga os caracteres pelos quais 
passar. Escreve em modo gráfico. 


UM TOQUE DE ELEGÂNCIA EM SEUS PROGRAMAS 





A função dos cursores é a de orientar 
o usuário para o modo que se encontra 
o sistema no instante da operação. 

Antes de vermos como os cursores são 
acionados, uma observação. Todas as te- 
clas, quando pressionadas, imprimem 


Listagem 1 


TREM sscsss (com 610 caracteres quaisquer)...... 





seu respectivo caráter. Por isso, como é 
óbvio, para se comandar o sistema com 
as devidas teclas, como veremos adian- 
te, é necessário pressioná-las junto com 
SHIFT, para que não ocorra a impressão 
delas. Eis o esquema: 








2 REM PROGRAMA AUXILIAR PARA 
DESENHAR E ESCREVER EM ASSEMBLER 

3 FAST 

4 LET M=16514 

5 LET A$="21FF7C2204400145021 
1007D219740EDB0OCDC303C9210000223 
64022877D01757D116D7D3EFDBC3E642 
8051287021803028712ED4B36402A254 
07DFEDF28DFFEFECABC7DFEFDCAES5S 7DF 
EBFCADF7DFEFBCA227FCD897D3EFFB82 
80FB9280F3E2CB8280D3E40B9280B180 
AQ418EE0C18EE0518F00D11050A1B7AF 
E0020FAED43877D3EC8323040CDB20B3 
E64323040ED4B877DED433640CDB20BC 
31E7D00007CFEFD2811FEFB2810FEF72 
80FFEEF2813FEDF2817C9040DC90C04C 
97DFEEF2801050CC97DFEEF28F10D05SC 
97DFEEF28F918E43EDFBC28063E6B323 
040C92A0C402306160E217EFE762803C 
68077230D20F410F018E2CD2A0AC3007 
D3A617D573EF7BC28083E00BA2809151 
8063EFFBA2801147A32617D1100051B7 
AFE0020FAC31E7D" 

6 GOSUB 11 

7 LET A$="010000CDF5083E00D73 
E88FE8028192A0C40ED4B357E78FE002 
807112100190518F423097E32137E010 
000ED430D7ECDF5083E88D7CDBBO2E5C 
179FEEF2809FEF728052C28EF1824213 
57E11367E78FEDECAES7EFEF6CAFC7E2Z 
1167E11867EFEFA281FFEFC2834FEEEC 
AD77ECDBDO77EFSED4B357ECDF5S08FIC 
600D7CD3B7FC3007F1AFE00280A3E001 
27EFE80282218303E80127EFE8028141 
8227EFE8028153E0032137E3E80771AF 
E0028043E8A18123E80180E3E88771AF 
E0028043E8918023E88323F7ECD3B7F1 
822ED4B357ECDF5083A137ED7C3007D7 
EFE00280A3D18043D123E1F7718051AF 
E0020F4C30C7E3E0C18023E1B32207F2 
1357E11367E7EFE1F280A3C18043C123 
E007718051AFE1520F4C30C7E3E00323 
57E32367E32867E3E8832167E323F7EC 
D3B7FC31B7E0106060B78FE0020FAC9" 

8 GOSUB 11 

9 SLOW 

10 STOP 

11 FOR K=1 TO LEN A$ STEP 2 

12 LET A=(CODE AS(K)-28)*16+C0 
DE AS(K+1)-28 

13 POKE M,A 

14 LET M=M+1 

15 NEXT K 

16 RETURN 





10 





SHIFT 5 — Movimenta o cursor para a 
esquerda. 

SHIFT 8 — Movimenta o cursor para a 
direita. Quando ele chegar ao fim da li- 
nha reinicia na linha seguinte. 

SHIFT 9 — Muda o modo de impressão. 













RAND USR 32000 
FAST 

DIM D$S(704) 
FOR I=0 TO 21 
FOR J=1 TO 32 
LET D$(J+32*1)=CHR$S PEEK (( 
16396+256*PEEK 16397)+]+33* 


Rana win 


PEEÍ 
1) 
NEXT J 
NEXT 1 
CLS 
SLOW 


Svms 








Se estiver em normal passará para gráfi- 
co e vice-versa. Observe que o cursor é 
alterado para melhor orientação. 

SHIFT O — O cursor que passa por cima 
dos caracteres sem apagá-los, passará ago- 
ra a fazé-lo e vice-versa. O cursor tam- 
bém será alterado. 

SHIFT 4 — Retornará à primeira rotina 
(rotina para desenhar). 

OBS.: 1) Os caracteres correspondentes 
às letras, números e demais símbolos se- 
rão impressos no lugar onde estiver o 
cursor. A impressão das letras (A a Z) e 
números (0 a 9), do ponto (.) e do espa- 
ço é direta. Para a impressão dos símbo- 
los é necessário que se pressione, com a 
tecla correspondente, a tecla SHIFT, co- 
mo dissemos anteriormente. 

2) Importante. Apenas serão impressos 
os símbolos normais que são: $ ()“- 
=+ :17/*<>, £ .Oscompostos de 
símbolos normais como: ”” <= >=<> 
não poderão ser impressos diretamente. 
Se você provocar a impressão de um sím- 
bolo composto, palavra-chave ou fun- 
ção, o sistema se perderá. 

3) Nesta rotina todas as teclas têm auto- 
repetição. 


Alberto M. C. Sarabando é engenheiro for- 
mado pela Faculdade de Engenharia de San- 
tos. Ele é usuário de um micro CP-200 e de 
uma calculadora TI-59. Cria programas de 
cálculo estrutural para Engenharia Civil e 
programas de Matemática. Estuda linguagens 
BASIC e Assembler. 
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Tem hora que precisa ser micro. 





O Elppa |l Plus é um micro computador 

Só que tem macro vantagens 

E feito quase artezanalmente, portanto testado 

um a um 

E isso é uma macro qualidade 

Como é feito com componentes de alta qualidade, 
dentro dos melhores padrões de Engenharia, a 
confiabilidade do Elppa || Plus é macro 

O custo de manutenção é micro: o único com um ano 
de garantia - macro qualidade com macro garantia 


Tem hora que precisa ser macro. 


Conclusão: Seja para você ou para sua empresa 
micro ou macro, faça como a Rede Globo, a Rede 
Bandeirantes ou a Control que têm se utilizado do 

Elppa Il Plus em suas necessidades empresariais ou 
como os funcionários do Bamerindus para suas 
atividades profissionais e de lazer 

Faça como tantos outros, que estão aproveitando as 






Já com o preço acontece uma coisa interessante, o vantagens de um micro 

deveria ser macro, mas quando você verifica o custo res li f que sabe ser macro na i 
de uma configuração vê que é micro hora certa. | Macro quan 
A assistência técnica é macro - direta do fabricante Ve 4 : 1 jrinhoO. 
ou através de seus credenciados. RR” 2/0715 Escolha o Elppa Il Plus |1 ano intetrt 





Ele é um Apple? compatível e dispõe de vasta gama a macro escolha. 
de expansões e periféricos à sua disposição - 
CONTROLADOR DE DRIVE, CP/M, PAL-M, 80 
COLUNAS, SOFTSWITCH, 16K, 64K, 128K, GRAPH + 
SUPER SERIAL CARD, SINTETIZADOR DE VOZ, 
MONITOR Il, etc... - macro vantagem. 


O micro macro. 


Fábrica: Rua Aimbere nº 931-S.P Tel 864 0979-872 2134 
Show Room: Av. Sumaré nº 1.744-S.P Tel 872.4788 


* Belo Horizonte - SPRESS 225 8988 « Porto Alegre - APLITEC 24 0465 - DB COMPUTADORES 22 5136 - EMBRAMIC 41.9760 « Rio de Janeiro - BMS 294 7728 - SISTEMA 

253.0645 - SC SISTEMAS 232 8304 e Vitória - SOFT CENTER 223.5147 e Brasília - COMPUSHOW 273 2128 e Curitiba - VIDEO E AUDIO 234 0888 e Londri 

236183 e Recife - NC SISTEMAS 228 0160 * São José do Rio Preto - TELEDATA 332714 e São Paulo - ADP SYSTEMS 227 4433 - BMK 62 9120 - EUROPLAN 
GENLOCK 212 7210 - SOLUÇÃO 287 5411 - VICTOR SHOW ROOM 872 4788 
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Poly 105 WP e Poly 301 WP, da 
Polymax 


Processadores 
de Texto 


Visando aperfeiçoar sua linha 
de processadores de texto, a Poly- 
max produz equipamentos especí- 
ficos para esse trabalho: o Poly 
105 WP e o 301 WP, que diferem 
pela maior capacidade do segun- 
do 


Nesses sistemas, os comandos 
automáticos, incluídos no próprio 
teclado, não exigem especializa- 
ção do usuário e facilitam a pro- 
dução de todo e qualquer tipo de 
texto. Eles aceitam vários tipos de 
impressoras, desde as matriciais 
até as equipadas com sistema de 
margaridas intercambiáveis. 

A Polymax desenvolveu, ain- 
da, um software para acompanhar 
os processadores, o Polyscriba. O 
programa é inteiramente em Por- 
tugués e apresentado de forma 
conversacional e interativa. O Po- 
Iyscriba possibilita a formação de 
colunas e quadros complexos, in- 
clusive com cálculos matemáticos. 

O Poly 105 e 301 WP podem 
ser também o início de uma rede 
local que está sendo lançada: a 
Poly 920 NET. Essa é uma rede 
aberta que pode ter a extensão de 
até 1,5 quilômetros, incorporando 
até 255 terminais ou micror. A 
Poly 920 NET tem uma velocida- 
de de transmissão de 1 Mb por se- 
gundo, além de possibilitar a co- 
municação simultânea entre os 
terminais ligados. 





Jogos da Desk 


Ovni e Sopa de Letras são dois 
novos jogos criados pela Desk En- 
genh. e Sistemas, de Ponta Gros- 
sa, para equipamentos com lógica 
Sinclair. O primeiro deles é dedi- 
cado aos jogadores que se desta- 
cam pela agilidade. Três fasers ten- 
tam impedir que três naves des- 
çam para ameaçar a Terra. À cada 
500 pontos obtidos o jogador ga- 
nha mais uma base. Especial para 
quem está começando. 

Sopa de Letras é voltado mais 
para aqueles que gostam de jogos 
que utilizam o raciocínio e a me- 
mória. Num painel são dispostas 
as letras do alfabeto, algumas das 
quais depois são embaralhadas. 
Com níveis de dificuldade de 
9, o jogador tem de recolocar 
letras nos lugares originalmente 
ocupados. Além desses dois jogos, 
a Desk, cujo escritório fica na Rua 
Balduino Taques, 480, conjunto 
83, têm também Tiro so Pato/Ba- 
talha Naval, Flip Flop/Biorritmo 
e Puzzle Senha. 












Microsist 
implanta 
sistemas em 
Belo Horizonte 





A Microsist é uma software 
house de Belo Horizonte (Rua Te- 
nente Brito Melo, 342, sala 1303, 
tel.: 335-1483) que vem se especia- 
lizando na implantação de siste- 
mas utilizando micros e minicom- 
putadores. Atualmente tem parte 
de sua atividade voltada à maximi- 
zação do controle de Informações 
Sociais e Financeiras de clubes e 
associações. 

Foi a Microsist quem implan- 
tou o sistema no Cruzeiro Esporte 
Clube, cujo equipamento é respon- 
sável por emissão de carnês, con- 
trole de mensalidades, baixas de 
pagamentos, posição da carteira 
de cobrança, listagem de associa- 
dos por ordem alfabética, cadastro 
de dependentes e lista de aniversa- 
riantes do més, entre outras coisas. 


Papel Autocopiativo 


A Indústria de Papel Piracicaba, do grupo Simão, é uma das 
maiores fornecedoras de papel para a indústria de formulários 
contínuos. No final de 81 o grupo Simão firmou um contrato de 
transferência de tecnologia com a Nashua, dos Estados Unidos. 
Através deste contrato a Indústria de Papel Piracicaba passou a 


receber o know-how para a produção de papéis especiais, entre 





Os quais o papel autocopi 


ivo Extra Copy, que agora está sendo 


lançado no mercado nacional. No processamento de dados o Ex- 
tra Copy permite aumentar a eficiência da impressora com a eli- 
minação do papel carbono. Para impressora de caracteres o nú- 
mero de cópias recomendadas é de 6 a 8 vias, e para impressoras 
de linha o fabricante recomenda que sejam feitas entre 5 e 6 vias 


por vez. 
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Prológica no Cirandão 


Depois de lançar o pacote que possibilita os usuários de seus micro- 
computadores acessarem o sistema Videotexto da Telesp, a Prológica 
entra agora também no Cirandão, da Embratel. Para tanto a empresa 
desenvolveu o protocolo TRTTY, que permite o acesso a diversos ser- 
viços de informação. 

As características do protocolo de comunicação Prológica são: as- 
síncrona, caracter a caracter, paridade par, ímpar e sem paridade, 7 ou 
8 Data Bits, canal secundário ou principal, código ASCII e as seguintes 
velocidades de comunicação: 50 a 19200 bps para recepção /transmissão 
ou 1200/75 bps para recepção /transmissão, atendendo, portanto, às es- 
pecificações da Embratel, para o Cirandão. 

Para acessar o Cirandão o usuário de microcomputadores Prológica 
deve se inscrever na Embratel e adquirir o Kit para o sistema. O Kit, dis- 
ponível em qualquer revendedor da Prológica, é composto por modem, 
cabos de ligação, placa RS 232C e disquete. O protocolo de comunica- 
ção é cedido gratuitamente pela Prológica. 


Protocolo sobre Informática 
na Educação 


O Secretário-Geral do MEC — 
Sérgio Pasquali, o Secretário Espe- 
cial de Informática — Edison Dytz, 
o presidente do CNPq — Lynaldo 
Cavalcanti de Albuquerque e o 
presidente da FINEP — José Wal- 
ter Melo assinaram, em Brasília, 
um protocolo de intenções com o 
objetivo de desenvolver uma infra- 
estrutura de Informática nas insti- 
tuições de ensino superior. 

O protocolo visa promover o 
equilíbrio entre o processo de In- 
formática, que vem se ampliando 
cada vez mais, e as instituições de 
ensino superior, que, pela carên- 
cia de recursos, não conseguem 
acompanhar o desenvolvimento 
desse processo. Uma outra preo- 
cupação assinalada no protocolo é 


com relação à total predominân- 
cia de equipamentos estrangeiros 
no país, o que dificulta a forma- 
ção de profissionais com conheci- 
mento sobre os equipamentos de 
fabricação nacional. 

Em virtude de frequente falta 
de recursos e agilidade dos atuais 
programas de Informática, o pro- 
tocolo prevê a constituição de uma 
comissão coordenadora, integra- 
da por representantes do MEC, 
SEI, CNPq, FINEP e das institui- 
ções privadas e públicas, que irá 
apresentar normas de operaciona- 
lização do protocolo, com duração 
de dois anos, mas com a possibili- 
dade de ser prorrogado de acordo 
com a vontade de seus integrantes. 





Videotexto da Itautec 
na Telesp 


A Itautec assinou 
contrato com a Telesp 
para o fornecimento 
de quinhentos termi- 
nais de videotexto |- 
1060, com entrega 
prevista para os pri- 
meiros meses desse 
ano. Os terminais |- 
1060 serão alugados 
aos usuários do siste- 
ma Videotexto através 
do plano de expansão 
do Centro Público da 
Telexp. O plano prevê 
a instalação de 12 a 15 
mil terminais ainda 
em 85. O terminal |- 
1060 pode ser utiliza- 
do tanto no escritório 
quanto em casa e sua 
instalação é simples, 
bastando ligá-lo a qual- 
quer modelo de televisão, preto e 
branco ou colorida, ou mesmo em 





Terminal videotexto 1-1060 


sua operação de qualquer ponto 
de um mesmo ambiente. No futu- 


A literatura de jogos 





Os primeiros livros de jogos que 
surgiram no mercado foram os da 
linha Sinclair. Isso porque os mi- 
cros dessa linha são os mais bara- 
tos e, consequentemente, os mais 
vendidos. Hoje, porém, já existem 
jogos e livros para todos os tipos 
de micros. 

Entretanto, o número de livros 
brasileiros sobre programação de 
jogos ainda é pequeno se compa- 
rado a quantidade dos traduzidos 
ou em inglés. Mas acredita-se que 
o mercado de livros de Informá- 
tica, em geral, é crescente e que 
o mesmo deverá acontecer em re- 
lação aos livros de jogos. 

Na verdade, esta nova litera- 
tura de jogos já apresenta diferen- 
tes estilos, ou seja, os livros po- 
dem ser subdivididos de acordo 
com a maneira pela qual o assunto 
é tratado. A grande maioria deles 
se propõe, simplesmente, a listar 
programas, o que limita o usuário 
a copiar sem desenvolver sua cria- 
tividade. Apesar disso, alguns des- 
ses programas são bastante inteli- 
gentes e despertam grande inte- 
resse no leitor. 

Outros ensinam realmente 
como elaborar jogos, apresentan- 
do truques e comentários de gran- 
de utilidade para o aprendizado 
do usuário. Um bom exemplo des- 
se tipo de literatura é o Curso de 
Jogos em Basic TK, de Fábio Ren- 
delucci. Este título, publicado pe- 
la editora Moderna, mostra o fun- 








cionamento dos jogos mais simples 
aos mais complexos, tratando de 
assuntos como placares, movimen- 
tos e níveis de dificuldade, sempre 
acompanhados de um programa 
como exemplo. TK Divertindo, de 
Victor Mirshawa, editado pela No- 
bel, também pode ser enquadrado 
nesse estilo. O autor dá dicas bási- 
cas, do tipo, como carregar e guar- 
dar um programa e faz comentá- 
rios sobre eles, além de dedicar a 
introdução do livro a explicações 
sobre o teclado do TK-85. 


Como a maioria dos jogos é 
escrita em linguagem de máquina, 
não se pode descartar a possibili- 
dade dos livros sobre esse assunto 
serem uma parte importante da li- 
teratura de jogos. Eles, certamen- 
te, são de grande valia para o usuá- 
rio que quer entender, de maneira 
mais completa, o funcionamento 
desses programas. Usando Lingua- 
gem de Máquina, de Mário Schaef- 
fer, e Linguagem de Máquina para 
o TK, de Flávio Rossini, ambos 
da Editora Moderna, são livros ca- 
pazes de auxiliar o leitor nesse sen- 
tido. 

Além dos livros existentes, não 
se pode esquecer a importância das 
publicações mensais que, sem som- 
bra de dúvidas, vêm apresentando, 
frequentemente, bons trabalhos 
sobre o assunto e contribuindo 
para a popularização da Informá- 
tica no país. 
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Jornalista de MS vence 
Prêmio Imprensa/84 


Em cerimônia realizada na sede do Brasilinvest, a jornalista Graça 
Santos, de MICRO SISTEMAS, recebeu das mãos de Ayrton Fagundes, 
Assessor de Imprensa da Secretaria Especial de Informática, o Prêmio 
Imprensa/84 ANDEI-NOVADATA. A escolha da comissão julgadora foi 
referendada também pelo voto direto dos associados da ANDEI. 

A matéria vencedora, resultado de um amplo trabalho de pesquisa, 
trata do processamento de texto e suas aplicações, trazendo ainda um 
panorama completo dos equipamentos disponíveis no mercado. 









































€ William Koelsch é o novo gerente da filial Rio de Janeiro da Cincom 
Systems. Ele passa a responder por todas as atividades da filial que se re- 
lacionam com vendas, suporte técnico e administração financeira. € A 
Edisa foi selecionada para fornecer ao Ministério do Exército microcom- 
putadores multiusuários de sua linha ED-200, por um período de três 
anos. € A Verbatim lançou, na última Feira Internacional de Informáti- 
ca, os disquetes Hard Sectored, para alguns equipamentos da Polymax. 
€ A Burroughs está lançando um lenço de papel do tipo “Lint Free”, 
que pode ser usado para a limpeza de cabeças magnéticas, assim como 
de todos os componentes que entram em contato com a fita magnética. 
€ A Microdigital está fabricando o Gravador de E prom para a linha TK. 
A interface "'Gravador Eprom”' é utilizada para memórias semiconduto- 
ras do tipo Eprom capazes de armazenar 2 Kb de informação sob a 
forma binária. € O software PACFIN — sistema estruturado para a área 
financeira —, da empresa INFOCO, foi o primeiro colocado no concurso 


monitor de vídeo caso o usuário 
possua um micro. O terminal da 
Itautec é composto por um adap- 
tador de videotexto e um teclado 
alfanumérico, com 61 teclas dis- 
postas como em uma máquina de 
escrever. O teclado pode comuni- 
car-se com o adaptador por cabo 


ro a Itautec informa que o termi- 
nal videotexto poderá ser utiliza- 
do também com uma impressora, 
através de interface, permitindo 
ao usuário imprimir todo o mate- 
rial que aparece na tela. O |-1080 
pode ainda atuar como secretária 
eletrônica. 


ou controle remoto, permitindo 


Valtech transfere 
fábrica para o Rio 


A Valtech Comércio e Indústria Ltda. transferiu sua fábrica de São 
Bernardo do Campo, em São Paulo, para o Rio de Janeiro. A empresa 
já iniciou suas atividades de produção e comercialização e continua ofe- 
recendo placas de circuitos impressos — profissionais (furos metalizados), 
semi-profissionais (estanhos), convencionais, protótipos e fabricação em 
série, assim como assistência técnica em projetos e análises. 

O novo endereço da Valtech é: Rua Felizardo Fortes, nº 563 — Ra- 
mos. 


























STRINGS E 

















tec, patrocinadora do evento. € Através de um trabalho desenvolvido 
pelo bailarino Ricardo Viviani, do elenco da peça Oh! Calcutá! pela pri- 
meira vez no Brasil um espetáculo une a dança ao computador. Ricardo 
utiliza as imagens gráficas produzidas por monitores de vídeo para coor- 
denar os seus passos no palco. O roteiro computadorizado inclui seis sé 
los e um dueto. € A Dismac, sexta maior fabricante de micros nacion 
(segundo Melhores e Maiores de 84 — Revista Exame), apresentou o se- 
gundo maior Índice de capitalização do setor de Informática. De acordo 
com o gerente de marketing da empresa, José Lacerda, isso se deve a to- 
tal reformulação da estratégia mercadológica, buscando melhorar a es- 
trutura interna com o atendimento mais direto ao usuário. € O jornal 
Dois Pontos, da cidade de Natal, no Rio Grande do Norte, está publi- 
cando uma coluna dirigida à área de Informática. Esta coluna foi uma 
iniciativa do jornalista Mário Lira Pedrosa, seu atual responsável, que 
tem como objetivo transmitir ao público, de maneira simples e agradá- 














“Melhor Software do Ano”, criado e promovido pela ANDEI. O prêmio vel, informações sobre o assunto. 
para o primeiro colocado foi um microcomputador |-7000 Jr., da Itau- 
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Brasil Trade Center 
oferece novos serviços 


Com apenas um ano e dois me- 
ses de atuação na comercialização 
e assessoria de negócios na área de 
Informática, o grupo Brasil Trade 
Center já inaugurou sua primeira 
indústria. A fábrica, que fica em 
Cavalcante, no Rio, está produzin- 
do, entre outros, móveis para mi- 
cros (mesas, cadeiras e malas) e 
placas para a linha Apple. Segun- 
do Manoel Assunção, presidente 
do grupo, a fabricação des placas 
se deve à grande procura existente 
no mercado e à falta de condições 
das empresas em surprir esta de- 
manda. 

Outra novidade no BTC são os 
segmentos de importação e expor- 
tação. O primeiro tem o objetivo 
de assessorar o pequeno e médio 
produtor na compra de compo- 
nentes de alta tecnologia. Já o se- 


tor de exportação visa apoiar o 
pequeno e médio exportador, de 
qualquer área, através da informa- 
ção. Esse processo se dá pela ins- 
talação de um sistema de compu- 
tador na empresa, o que permite 
ao produtor ter acesso às informa- 

necessárias ao desenvolvi- 
mento de sua indústria. 

Além disso, o BTC continua 
expandindo seus negócios na área 
comercial. Atualmente, a empresa 
tem cinco pontos de venda, mas 
pretende chegar ao ano de 86 com 
nada menos que cem pontos de 
venda. Para isso, O grupo está pro- 
curando representantes em cida- 
des de todo o país. A sede do Bra- 
sil Trade Center fica na Av. Epitá- 
cio Pessoa nº 280, Ipanema, tel.: 
(021) 2569-1299, Rio de Janeiro — 
RJ. 


Emulando e Transferindo Dados 


A placa 7101 é o novo produto lançado pela Link. Trata-se 
de um emulador de terminais 3278 e 3279 que permite a comu- 
nicação e transferência de arquivos entre microcomputadores 
compatíveis com IBM PC, como o modelo 727, da própria Link, 
e computadores de grande porte da IBM. A comunicação é feita 
via uma controladora de terminais IBM 3274/3276, através de 


um cabo coaxial. 


Além da placa de comunicação, o produto é composto tam- 
bém pelo software Terminal de Trabalho Executivo, que permite 
a transferência de arquivos entre o micro e o sistema central, em 
ambientes CMS, DSO e CICs. O Link 7101 já está sendo comer- 
cializado e seu preço de mercado é de 300 ORTN. A manutenção 
integral do produto por um ano fica por conta da Link e esta se- 
rá efetuada nas dependências do próprio cliente. 





Ouro, novo modelo 
de monitor da CMA 


A CMA Indústria Eletrônica lançou recentemente seu moni- 
tor Ouro, cuja principal característica são dois tamanhos de qua- 
dro, reduzido e ampliado. Equipamento de aplicação profissional, 
reproduz com alta resolução qualquer tipo de gráfico, desenho 
ou texto, em 40 ou BO colunas. É compatível com o derivador de 
vídeo DM6, da CMA, o que permite a ligação de até seis monito- 


res em um único micro. 


O monitor Ouro é do tipo portátil, com alça para transporte, 
tem tela de 31cm (12") em fósforo verde (opcionalmente lumi- 
nescência branca) é controles de brilho, contraste e chave liga/ 
desliga no painel frontal. No painel traseiro há outros controles: 
sincronismo horizontal e vertical, linearidade vertical, altura, fo- 
co e tamanhos do quadro. Pesa 10 kg. Outras informações po- 
dem ser obtidas pelo telefone (011) 548-2249. 


Simitex 


Simitex Escolar é um aplicati- 
vo desenvolvido pela empresa ca- 
rioca Simicron para micros de uso 
profissional em estabelecimentos 
de ensino. Ele permite substituir, 
de forma segura e eficiente, copia- 
doras, mimeógrafos e as máquinas 
de escrever convencionais. Embo- 
ra de concepção sofisticada, é de 
fácil operação, dispensando trei- 
namento ou manuais. Ele armaze- 
na, organiza, edita e emite textos 
de qualquer natureza, como pro- 
vas, testes, circulares, apostilas etc. 

A consulta a textos armazena- 
dos pode ser feita por uma série 
de itens definidos pela administra- 
ção do estabelecimento, por exem- 
plo, por cursos, matérias, assuntos, 





Escolar 


datas ou professores. O Simitex 
Escolar tem características que 
impossibilitam o uso de sua biblio- 
teca por pessoas não autorizadas, 
incluindo um eficaz processo de 
segurança de arquivos e cópias de 
cadastros. 

Também voltado para a área 
de ensino, a Simicron tem o siste- 
ma Magister, que permite concen- 
trar rotinas financeiras e acadêmi- 
cas. O grupo académico possibili- 
ta registro de cursos, matérias, pro- 
fessores, alunos, notas etc. Na área 
financeira efetua cadastramento 
de pagamentos, capas de carnês, 
levantamento de valores recebidos 
etc. O telefone da Simicron 61021) 
205-6597. 


Exitus Informática 


- Eleéoprofis- 
sional que todo em- 
presário gostaria 
de ter no escritório. 
eu em casa. Novo 

de id or Craft 
If Plus. E 100% 
compatível com a 
linha Apple. 
Seu teclado tem 
caracteres pr 
português, siste- 
ma auto-teste 
a funções Amã 
rogram 
Além de 9 funções 
pro áveis. 
enha conhecer 
este profissional 


ACIAPPYAPRESENTÃO 


OVO COMPUTADOR CRAFT II PLUS 





Advancing, Informática no Sul 


Criada em 1979, em um espaço de 80 metros quadrados em Porto 
Alegre, hoje a Advancing forma um grupo que atua em diversos setores 
da Informática, com destaque na área de treinamento. A empresa ofe- 
rece cerca de 38 cursos, que vão da formação ao aprimoramento de pro- 


fissionais em processamento de dados. 


Em 1981,a Advancing lançou uma loja especializada em computado- 
res no sul do País, estabelecimento reinaugurado em 1983 na forma da 
mais completa boutique do Estado, a Advancing Computer Shop, ocu- 
pando o mesmo prédio que a Advancing Sistemas e Manutenção, na Sar- 
mento Leite, 248. O complexo Advancing está distribuído em quatro 


sedes, três das quais são próprias. 


A Exitus Informática é uma loja de Juiz de Fora especializada em 
microcomputadores. A maioria dos micros nacionais podem ser encon- 
trados na Exitus que possui também grande variedade de periféricos (im- 
pressoras, monitores de vídeo, modems, teclados, disco Winchester, 
entre outros), e todos os suprimentos necessários à utilização de micro- 
computadores. Além de prestar assistência técnica para os produtos que 


comercializa, a Exitus, através de seu departamento de software desen- 


volve programas sob encomenda para qualquer micro. Lá também são 
oferecidos curso de Basic, Cobol, Assembly, Fortran, Pascal e outros. A 
Exitus possui financiamento próprio para pagamentos em até cinco ve- 
zes, e a loja ainda compra, troca e vende micros usados. O endereço da 
Exitus é Rus Santo Antonio, 689, no centro de Juiz de Fora. Tels.: 


(032) 213-2494 e 212-0564. 


O Comércio se Automatiza 


Comemorando seu primeiro ano de exis- 
tência a Associação Brasileira de Automação 
Comercial — ABAC, inaugurou sua nova sede 
em São Paulo. Na ocasião a diretoriada ABAC 
defendeu a criação de uma rede única de Ter- 
minais de Transferência de Fundos (TTF), 
uma decisão contrária à assumida pelos bancos 
em recente Congresso realizado em Salvador. 
Os bancos não chegaram a um acordo quanto 
à unificação dos TTFs e serão mantidas por- 
tanto as quatro redes hoje existentes: Brades- 
co; Tecnologia Bancária (Banco 24 Horas); 
Itaú e Credicard; e Banco do Brasil. A necessi- 
dade de terminais distintos para cada um dos 
bancos, segundo os comerciantes, inviabiliza a 
utilização de TTF uma vez que cada loja terá 


que possuir no mínimo quatro terminais, e no 
caso de magazines este número deveria ser 
multiplicado pelo número de departamentos 
onde fossem instalados os terminais. Além dis- 
so os comerciantes apontam para o fato de 
que os custos decorrentes da instalação de ter- 
minais, já que algumas instituições bancárias 
cobram pela instalação além de uma taxa de 
aluguel, e outras por cada transação realizada, 
além da ligação telefônica quando o terminal 
é acionado para consultar o banco de dados 
central sobre o saldo do cliente, teriam que 
ser repassados para o consumidor, o que não 
interessa ao comércio. 

Diante do impasse criado a ABAC resolveu 
formar grupos de trabalho em Porto Alegre, 


Recife, Rio de Janeiro e São Paulo para estu- 
dar uma solução para o caso. Uma das alterna- 
tivas que está sendo apontada pelos comercian- 
tes é a criação de uma rede específica para o 
comércio. 

Quanto à padronização do código de bar- 
ras dentro do processo de automação comer- 
cial, o código a ser utilizado no Brasil já foi 
definido e será o EAN, usado em vários países 
da Europa. A impressão dos códigos nas em- 
balagens dos produtos deverá ter início no ter- 
ceiro trimestre deste ano e a leitura Ótica com 
utilização de caneta tipo light pen está previs- 
ta para o segundo semestre de B6. 
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na Clappy.Você vai 
dialogar com iria 
equipe técnica qu 
realmente entende 
seu problema 
e aponta sempre a 
melhor solução. 
Vai encontrar 
também a mais 
completa linha de 
microcomputado- 
res, periféricos, su- 
primentos, softwa- 
res. E nem é pre- 


DOANQ 


ciso dr que o 
preço Clappy é se- 
guramente 0 - 
nor do mercado. 
Além disso, a 

Clappy oferece 
cursos de progra- 
mação, implanta- 
ção e instalação de 
sistemas e assis- 
tência técnica 
própria. . 

. Venha à nossa 
loja ou solicite 


a visita de um 
representante. 





O lado gente da máquina. 


Centro: Av. Rio Branco, 12-loja e 
asi - Tel.: (021) 253- 3398. 


cpa Rua Pompeu Loureiro,99 
(021) 236-7175 - 257-4398. 

o diariamente das 9 às 19horas 

e aos sábados das 9 às 14 horas. 

Assistência Técnica - 284-3349. 


Entregamos em todo Brasil pelo 
reembolso Varig. 





Hoje, acessar a informação precisa e mantê-la organizada 
são preocupações dos usuários de micros. Para estes, 
MS selecionou diversos temas sobre BDs 


Bancos de Dados - a 
utilização crescente 
em micros 


s inúmeras inovações que vi- 
venciamos a cada dia em 
nossos processos de produ- 


ção já deixaram claro que 
caminhamos para uma situação em que 
deter a informação significa, não raro, 
deter eficiência e até mesmo poder. Ho- 
je, a necessidade de se ter as informa- 
ções organizadas de forma a permitir um 
acesso rápido e racional faz-se presente 
não só no estágio de estudos que antece- 
de os processos de tomada de grandes 
decisões como também, de maneira mais 
ampla, em todas as tarefas complemen- 
tares de suporte, operacionalização e 
busca de insumos que cercam nosso tra- 
balho. 


Dentro deste contexto, ser um usuá- 
rio de computadores e servir-se, de um 
modo geral, dos serviços de armaze- 
namento eletrônico das informações fi- 
cou no mínimo aconselhável. Assumi- 
ram, então, um significado importante 
os sistemas que permitem uma comple- 
ta manipulação, busca e recuperação 
de dados. Os softwares Gerenciadores 
de Bancos de Dados, outrora um privi- 
légio dos que tinham acesso a equipa- 
mentos de grande porte, são hoje po- 
derosos aliados e mesmo puxadores de 
vendas de microcomputadores. Tal su- 
cesso é compreensível não somente à 
luz da importância que vem assumindo 
o “estar bem informado” como também 
em função de sua ampla possibilidade 
de utilização, visto haver, em todos os 
segmentos da atividade humana, aplica- 
ções possíveis a esse tipo de sistema. 
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É impressionante como as demandas 
se multiplicam e as necessidades apon- 
tam para sistemas cada vez mais sofis- 
ticados, que buscam, além da comple- 
xidade e abrangência de funções, uma 
simplicidade de uso que faça dessas Ba- 
ses de Dados uma extensão quase natu- 
ral da capacidade humana. Neste ponto 
fica claro que todos os resultados e con- 
quistas dessas pesquisas são, na realida- 
de, meras fases de uma busca maior, ru- 
mo à Inteligência Artificial. 

Na tentativa de dotar esses sistemas 
de sofisticação e simplicidade, deixa- 
mos para a Idade da Pedra o tempo em 
que o micro nada mais oferecia do que 
uma “ficha eletrônica”, guardando to- 
dos os inconvenientes e limitações do 
armazenamento manual de dados e mos- 
trando um único aspecto de sedução: 
visualizar as informações no vídeo, ao 
invés do papel, mesmo que isto envol- 
vesse até, em alguns casos, mais traba- 
lho. 

Ao longo dos últimos anos, diversos 
sistemas Gerenciadores de Bancos de 
Dados foram lançados no mercado, com 
funções cada vez mais completas e ex- 
ploração crescente dos recursos dos mi- 
crocomputadores e da evolução do hard- 
ware, principalmente nos aspectos refe- 
rentes à capacidade de armazenamento 
físico de informações. 

E apesar de somente no último ano 
esses sistemas terem se tornado efeti- 
vamente discutidos e utilizados no Bra- 
sil — e aqui os usuários ainda têm muito 
o que descobrir sobre o potencial deles 





—, Os inquietos norte-americanos já lan- 
çam-se em discussões e pesquisas bas- 
tante aceleradas sobre a forma de in- 
tegrar sistemas com capacidade de ma- 
nipulação em Bases de Dados a outras 
funções. Dessas discussões resultam pro- 
dutos que, inclusive, representam uma 
geração posterior à dos famosos soft: 
wares integrados (tipo Lotus 1-2-3), que 
incluem Bancos de Dados como aplica- 
ção principal ou secundária, mas que 
não podem ser considerados SGBDs ple- 
nos. Antes, o software integrado tradi- 
cional apresenta apenas algumas fun- 
ções de manipulação de dados (sort, 
por exemplo), geralmente servindo de 
apoio a uma segunda aplicação princi- 
pal, que é usualmente a planilha de 
cálculo. 

De concepção mais recente, existem 
novos produtos como os chamados Text 
Databases, que integram ao Gerenciador 
de Bancos de Dados funções de edição 
antes somente possíveis via uso de edi- 
tores de texto. Isto porque, a partir de 
novas necessidades de uso, constatou-se 
que os editores de texto não apresen- 
tam mecanismos eficientes de manipu- 
lação de dados, enquanto que os SGBDs 
pecam por não apresentarem facilida- 
des de edição. Já este produto híbrido 
reuniria condições para localizar rapida- 
mente fragmentos de texto, editá-los e 
incorporá-los a documentos maiores, 
previamente instalados no sistema. 


ESCLARECIMENTOS 


Mas enquanto ainda estamos um pou- 
co distantes dessas discussões de van- 


MICRO SISTEMAS, fevereiro/85 


guarda, é interessante procurar esclare- 
cer aos usuários, principalmente aque- 
les de máquinas pessoais, sobre o que 
vêm a ser e quais benefícios o uso de 
Sistemas Gerenciadores de Bancos de 
Dados poderá trazer no exercício de 
suas atividades. 

E começamos daí: quase todas as 
atividades necessitam de organização de 
dados. Entendemos, então, uma base de 
dados como um ou mais arquivos, com- 
postos de registros que, em determina- 
dos campos definidos pelo usuário da 
base, abrigam dados relacionados entre 
si. Assim, percebe-se que uma base de 
dados nada mais é do que uma coleção 
de arquivos, nos quais podem estar con- 
centrados e organizados literalmente 
quaisquer dados que o usuário se inte- 
resse em armazenar. Pois bem, os 
SGBDs são os programas que se en- 
carregam de gerenciar e garantir a ra- 
cionalização de armazenamento desta 
base (ou banco) de informações. Eles 
permitem que o próprio operador defi- 
na seus arquivos e “desenhe” seus re- 
gistros, especificando assim a forma de 
entrada e recuperação dos dados. Após 
ter completado sua base de dados, o 
usuário pode, graças à ação dos SGBDs, 
adicionar, alterar ou deletar dados; rea- 
lizar pesquisas no arquivo e gerar rela- 
tórios, estruturados de acordo com suas 
prioridades e critérios de seleção. 

Ocorre, contudo, que os programas 
de controle e gerenciamento de bases 
de dados abrangem um amplo leque de 
opções, variando em função das máqui- 
nas em que rodam, dos recursos ofere- 
cidos e dos preços, entre outros fatores. 
Toda esta possibilidade acaba criando 
confusão quando o interessado não 
tem claras certas definições e, princi- 
palmente, o objetivo de utilização de 
sua base de informações. 


Novamente o primeiro passo é defi- 
nir qual a utilização. Isto porque, das 
mais simples às mais sofisticadas, exis- 
tem diversas formas e produtos usados 
para armazenar e gerenciar a informação 
que desejamos ter sempre à mão e orga- 
nizada. O uso profissional, salvo em ra- 
ras exceções, não pode prescindir de 
um SGBD completo, que lhe permita 
flexibilidade de manipulação e seguran- 
ça de dados. Já no nível das aplicações 
domésticas geralmente são aconselhados 
os programas mais simples, ideais para 
os arquivos caseiros de livros, discos, te- 
lefones ou similares. Neste caso, a ex- 
ceção fica por conta dos colecionadores 
ou daqueles que levam seus hobbies a 
extremos.e que, eventualmente, poderão 
precisar de sistemas mais poderosos. 
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GATO POR LEBRE 


Na hora da compra, portanto, é ne- 
cessário estar atento. Isto porque o nú- 
mero de programas intitulando-se Ban- 
cos de Dados no mercado é grande. Se- 
gundo nosso assessor Orson Galvão, al- 
guns deles, inclusive, “não chegam nem 
a tamborete, e são, no máximo, sacos 
de dados”. Para Galvão, uma utilização 
efetiva de banco de dados precisará 
apresentar: 


e um software que defina a estrutura 
do banco de dados e possibilite a ali- 
mentação e manutenção do mesmo; 
e um software que permita a manipu- 
lação tanto dos dados no banco quanto 
da estrutura previamente criada; 
e um software que permita acessar e 
utilizar os dados de forma a gerar rela- 
tórios, fazer pesquisas seletivas e todo 
produto final desejado; 
e um software que facilite a interliga- 
ção com outros sistemas fora do banco 
de dados, através da geração de arqui- 
vos de dados em formato compatível. 
Segundo ele, um verdadeiro sistema 
de banco de dados engloba, por si só, 
todas estas tarefas e possibilidades, con- 
tendo ainda uma linguagem de progra- 
mação. 


Nem todos os produtos disponíveis, 
contudo, apresentam tais características. 
Para começar dos mais simples, existem 
certos programas que são comumente 
denominados de sistemas para gerencia- 
mento de arquivos, uma vez que foram 
desenvolvidos de forma a gerenciar lis- 
tas de informações, limitando-se a guar- 
dar registros (fichas), independentes en- 
tre si, na ordem em que são introduzi- 
dos pelo operador. São também os pro- 
gramas mais baratos, fáceis de usar e 
usualmente conduzidos através de me- 
nus, exigindo do usuário pouca memori- 
zação de comandos e funções. 

Primeiramente, o usuário “transmi- 
te” ao sistema como quer entrar os da- 
dos, desenhando na tela suas fichas, es- 
tabelecendo o nome e o tamanho dos 
campos e especificando os tipos de da- 
dos (numéricos, alfanuméricos ou lógi- 
cos) que devem ser entrados naquele lo- 
cal. A partir daí e uma vez entradas — e 
criticadas — as informações, o programa 
permite adicionar, alterar ou apagar da- 
dos; executar pesquisa a partir de cam- 
pos específicos, ditos chaves; ordenar o 
arquivo (sort) como queira o usuário e 
gerar relatórios. 


Uma limitação desse tipo de progra- 
ma é que ele, geralmente, trabalha só 
um arquivo por vez, não possibilitando 
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a combinação de informações de dife- 
rentes arquivos. Atualmente, contudo, 
alguns desses programas permitem um 
trabalho simultâneo em mais de um ar- 
quivo, desde que estes possuam regis- 
tros formatados de maneira idêntica. 
Outro ponto fraco comumente aponta- 
do pelos usuários são as limitadas fun- 
ções de cálculo matemático (como to- 
tais ou %). 


Estas limitações, inclusive, são o mais 
forte fator de diferenciação entre os 
programas gerenciadores de arquivos e 
os gerenciadores de bancos de dados, 
embora mesmo dentro deste segundo 
grupo existam diversas opções que va- 
riam em graus de sofisticação e preço, 
que, no mercado norte-americano para 
essa faixa de sistemas, situa-se no inter- 
valo entre US$ 300 e 600. 


Os SGBDs, ao contrário dos progra- 
mas de arquivos, podem manipular mais 
de um arquivo por vez chegando até, em 
alguns casos, a “criar” novos arquivos, 
efetuando junções de segmentos dos 
arquivos já existentes. Permitem ainda 
fazer sorts por múltiplos campos-chaves 
e definir campos que são calculados a 
partir de outros, utilizando, via de re- 
gra, funções matemáticas complexas. 


Os mais simples mantêm a constru- 
ção através de menus, enquanto que al- 
guns SGBDs mais sofisticados são guia- 
dos por um conjunto de comandos, que 
embora levem a uma maior flexibilidade 
de aplicações exigem, em contrapartida, 
um maior esforço no aprendizado. Es- 
tes sistemas, concebidos para processar 
grandes volumes de dados, geralmente 
incluem linguagens próprias para obje- 
tivos específicos, que permitem progra- 
mar aplicações personalizadas e são de 
fácil entendimento para os que conhe- 
cem o idioma Inglês, dado a semelhan- 
ça com a linguagem natural. Para os que 
quiserem entender mais sobre esses sis- 
temas, aconselhamos a leitura do artigo 
“O dBase II, por etapas”, publicado em 
MS nº 38, página 110. O dBase II é, 
sem dúvida, o mais bem-sucedido SGBD 
para micros do mercado. 


Aqueles, contudo, que pretenderem 
fazer uso dessas linguagens de desenvol- 
vimento oferecidas por certos SGBDs, 
cedo ou tarde terão que se aprofundar 
numa outra questão, que ao usuário do 
sistema é inteiramente transparente, pe- 
lo grau de detalhamento técnico. Esta 
questão implica em estudar os métodos 
usados pelos SGBDs para armazenar, 
organizar e relacionar a informação. 
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ntre produtos genuinamente nacionais, traduções, semi-traduções ou simples cópias 

piratas, o interessado em adquirir um software para gerência de Bancos de Dados ou 
arquivos terá diversas opções de solução disponíveis. E, muito embora a oferta das lojas 
mais tradicionais geralmente seja limitada a dois ou três dos títulos mais famosos, é possí- 
vel, vasculhando bem o mercado, encontrar aqui a maior parte dos pacotes SGBDs que fa- 
zem sucesso no mercado norte-americano. 

Apple, CP/M e 16 bits são indiscutivelmente as linhas de equipamentos mais bem supri- 
das neste particular. O best-seller da área, dBase II, da software-house norte-americana 
Ashton-Tate, funciona sob MS-DOS ou CP/M para 16 ou 8 bits, e configura-se o mais com- 
pleto SGBD surgido até o momento, possuindo, entre outros recursos, linguagem própria 
para desenvolvimento de aplicativos personalizados. De nível de sofisticação similar, existem 
algumas opções mais problemáticas para serem encontradas no Brasil, como o Knowledge 
Manager, da Micro Data Base Systems Inc., e o Condor 3, da Condor Computer Corp., am- 
bos rodando em 16 bits e CP/M. 

Em terras brasileiras, contudo, o dBase II — distribuído pela empresa Datalógica — ain- 
da é a opção por excelência para os que pretendem uma utilização mais pesada. Seu preço é 
bastante variável, e apesar dos esforços da Ashton-Tate para coibir as cópias piratas, ainda se 
encontram lojas que optam por oferecer o pacote “original”. Detalhe: mesmo com o incon- 
veniente do manual não traduzido, o preço cobrado por esta cópia foi, segundo nossa pes- 
quisa, mais elevado do que o da versão traduzida pela Datalógica. O dBase II tem seu preço 
situado no intervalo entre 110 (Compushop) e 170.9 ORTN (Computique), e na empresa 
Dita ele é comercializado em duas versões: pessoal (140 ORTN) ou comercial (190 

RTN). 

Também bastante ofertado pelas lojas é o SPA Reporter, da Royal Software, um pacote 
simples para linha Apple, vendido a 14.5 ORTN. Segundo Luiz Roberto de Oliveira, ana- 
lista da loja Computique, “o mais procurado” é o dBase II, mas nem sempre ele é o mais 
vendido, por causa de seu preço elevado. O que ocorre no mercado de software para BDs é 
que a venda é muito pequena, o que ocasiona o desinteresse das software-houses em desen- 
volver produtos novos; o que existe é simples cópia e tradução. Poucos sabem que o SPA- 
Recantos é tradução do famoso PFS americano. Isto ocorre por falta de uma legislação es- 
pecífica”. 

Um outro software para BDs que goza de boa reputação é o Datastar, um produto para 
Apple e CP/M, desenvolvido pela MicroPro International e que era comercializado no Bra- 
sil pela empresa Approach Informática, de São Paulo. Oportunamente, contudo, a também 
paulista Brasoft fechou com a norte-americana MicroPro a representação exclusiva de seu 
software no país, inclusive o poderoso Infostar, o que levou a Approach a tirar seu time de 
campo. 

Duas outras empresas também abandonaram a partida: a Compucenter, que não mais co- 
mercializa seus Compudata e Compufile, e a Compumax, que faliu e levou junto o “suspei- 
to” pacote Micro/DB. 

Uma empresa bastante ativa na comercialização de software para Banco de Dados é a 
Intersoft Microcomputadores. Seus produtos são: PFS: File, um sistema para gerenciamento 
de arquivos, desenvolvido pela SH americana Software Publishing Corp., e que peca por ser 
um tanto lento. É compatível com o Apple II, e nos EUA já existe a versão para o IBM-PC. 
A empresa comercializa-o com manual em Inglês por 6 ORTN. O DB Master, considerado 
um SGBD de sofisticação média, desenvolvido pela Stoneware Inc. para o Apple II, mínimo 
de 48 Kb, sai, com manual em Inglês, por 11 ORTN. (Nota: uma nova versão — o Advanced 
DB Master — foi lançada pela Stoneware, para rodar também no IBM-PC.) O VisiFile é um 
gexenciador de arquivos da Visicorp, que roda no Apple II, e seu preço fica em 12 ORTN. Já 
o Visidex, programa para controlar arquivos pessoais no Apple, da Personal Software, custa 
11 ORTN. Para a linha TRS-80, a Intersoft comercializa o Profile Plus, desenvolvido pela 
Radio Shack para seu modelo III com 48 Kb. Considerado um SGBD de média sofisticação, 
o Profile possui algumas funções matemáticas e facilidades para o trabalho integrado com 
editores de texto. Bastante conhecido no meio dos usuários TRS, o programa serviu de “es- 
pelho” para certos BDs nacionais de linha TRS-80, como o DigFile, da Digitus, e é comer- 
cializado por 15 ORTN. 

Ainda no rol dos softwares estrangeiros, convém ressaltarmos o Quick-file, gerenciador 
de arquivos para o Apple Ile, não encontrado nas lojas daqui, e o Versaform, um SGBD de- 


senvolvido Applied Software Technology para o Apple e IBM-PC e que é oferecido aqui 
pela Royal Soft 7 


Dentre as empresas nacionais que se dedicam ao assunto, a Monk Micro Informática - 


oferece dois programas: o Data-Manager, que é um SGBD similar ao Profile, guiado por me- 
nus e possuindo senha para proteção de dados (Cr$ 450 mil, em dezembro), e o Data-File, 
um programa para gerenciamento de arquivos em fita cassete. Também compatível com os 
modelos TRS, ele é vendido a Cr$ 300 mil. 

A empresa Microarte oferece dois produtos afins: o Microdata, para Apple II com 48 Kb, 
integra ao BD funções de gráficos e edição de textos e custa 11.2 ORTN;e o Microdata II, 
um Banco de Dados hierárquico também para o Apple, e custa 14 ORTN. 

Um gerenciador de arquivos é o que oferece, por 60 ORTN, a Atrium Engenharia, com o 
Sistema Atrium de Inf s Pessoais. Este programa, que constrói fichas cadastrais, é 
compatível com o TRS modelo III. Também a Softscience possui um programa para criação 
e manutenção de arquivos pessoais, o Colect, para TRS-80 em disco ou fita. Para o DOS do 
Apple, a EAG, do engenheiro Enio Garbini, possui o Micro Banco de Dados, guiado por 
menus, a 11 ORTN. 

Mais voltados para a automação de escritório estão dois pacotes nacionais. Um deles é o 
Controle de Documentos-Fluxo de Informações, da Micro Consult, sobre o qual não tivemos 
muitas informações. O outro é o Gerenciador de Documentos e Compromissos Estendido, 
voltado para equipamentos CP/M. Este sistema, da Promicro, é composto de módulos in- 
dependentes, e os módulos Biblioteca e Agenda são os que, efetivamente, apresentam uma 
aplicação direta de arquivamento. Cada módulo custa 15 ORTN. 

Como curiosidade, vale dar uma olhada no Robot, um aplicativo desenvol- 
vido em linguagem Fancy, composto de um conjunto de programas voltados à manipulação 
de dados. É compatível com o cartão Fancy, da Hengesystems, e seu preço é de 20 ORTN. 
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Neste aspecto, temos que os sistemas 
gerenciadores da informação dividem-se 
em SGBDs relacionais, os mais comuns; 
SGBDs hierárquicos e sistemas em rede. 
Para uma breve introdução ao assunto, 
sugerimos a leitura do texto “Adminis- 
tração de Dados e os micros”, de auto- 
ria dos professores Antonio L. Furtado 
e Daniel A. Menascé, da PUC-RJ, publi- 
cado nesta edição. 


Todos os sistemas vistos até aqui 
pressupõem, na maioria dos casos, apli- 
cações autônomas, nas quais o valor da 
informação é medido pela utilidade que 
ela assume perante o usuário. No enta- 
to, a utilização isolada do micro perde 
terreno a cada dia e a palavra de ordem 
é integração. Neste caso, quando o volu- 
me de dados que precisamos acessar 
e manipular supera nossa capacidade fí- 
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sica de armazenamento, ou mesmo 
quando o retomo óbtido pelo uso dos 
dados não compensa o esforço e inves- 
timento envolvidos no “monopólio”, ou 
ainda em casos de dados fornecidos por 
terceiros, lança-se mão da informação 
compartilhada, seja sob forma de redes 
que dividem arquivos de dados ou de 
real acesso a serviços de Bancos de Da- 
dos existentes no mercado e, quase sem- 


MICRO SISTEMAS, fevereiro/85 


pre, explorados comercialmente. Neste 
caso, o valor da informação é medido 
por seu potencial de venda. 

Nos EUA, indiscutivelmente o mer- 
cado mais ávido pelo uso de processa- 
mento eletrônico das informações, o nú- 
mero de Bancos de Dados oferecidos aos 
usuários de micros é enorme, e neste 
grupo o preço dos serviços varia bastan- 
te. Recente edição da revista norte-ame- 


ricana Byte (outubro de 84) declara 
que, segundo estudos realizados, foi de- 
monstrado que um uso intensivo dos 
serviços comerciais de BDs pode custar 
ao usuário cerca de US$ 100 por hora 
de acesso e pesquisa e ainda que, em se 
fazendo um levantamento cuidadoso do 
mercado, pode-se chegar a economizar 
algo em torno de 50% dos custos com 
este tipo de serviço, tal a heterogeneida- 
de de preços cobrados pelas diversas 
empresas. Os principais serviços ofere- 
cidos são cotações e previsões referen- 
tes aos mercados de ações ou commo- 
dities, informações referentes às condi- 
ções climáticas em diversas partes do 
mundo; notícias divulgadas por jornais 
ou agências internacionais; informações 
técnicas e atualizadas sobre pacotes de 
software e equipamentos populares; no- 
vidades tecnológicas; bolsa de empregos 
e primeiros-socorros. Dentre as empresas 
que comercializam este tipo de serviços 
estão a CompuServe Inc., Dialog Infor- 
mation Services Inc., Dow Jones, News- 
Net, e Source Telecomputing. 


No Brasil, por enquanto, as opções 
de Bancos de Dados ainda são poucas. 
As empresas mais ativas neste setor são 
a Embratel (que tem no Cirandão e 
Renpac seus principais serviços), a Te- 
lesp (sistema Videotexto) e o Serpro, 
com o serviço Aruanda. Nesta edição, 
o usuário poderá se inteirar das ativida- 
des e os mais recentes lançamentos da 
Embratel neste setor, lendo a reporta- 
gem “Micros mais próximos das bases de 
informações”. 


Falar em Bancos de Dados, contudo, 
envolve inúmeros pontos relevantes para 
serem abordados. Entre eles, seleciona- 
mos uma discussão, bastante em voga 
atualmente, sobre a privacidade do ci- 
dadão, ao tornar-se, ele mesmo, um “'da- 
do” dos BDs do Estado. 


Procuramos, assim, suprir nossos lei- 
tores com um material básico que irá 
esclarecer o que vêm a ser os tão badala- 
dos BDs e seus sistemas de gerenciamen- 
to. Complementamos a edição com a lis- 
tagem de um SGBD inteiramente de- 
senvolvido por nosso colaborador Ivan 
Camilo Cruz e pronto para ser utilizado 
pelos usuários da linha TRS-80. Veja 
ainda neste número um comentário so- 
bre os softwares de Bancos de Dados 
disponíveis no mercado nacional. 


A.C. 
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BANCOS DE DADOS — Cresce o número de BDs, onde 
dados de milhares de pessoas são manipulados, e também 
a discussão em torno do direito do cidadão à privacidade 





A questão 
da privacidade 


Luzia Portinari Greggio 


processo de informatização 

da sociedade, e inserida a 

questão dos imensos BD com 

dados pessoais dos cidadãos, 
pode conduzir a uma situação onde as 
desigualdades se cristalizem irreversivel- 
mente com o aumento do controle so- 
cial. Outra não tem sido a preocupação 
daqueles que acreditam que a Informá- 
tica também pode ser um instrumento 
de reformulação social, política e econô- 
mica, possibilitando a descentralização 
do poder e a socialização das informa- 
ções de interesse público. 

O processo de informatização da so- 
ciedade é eminentemente político e sob 
este contexto deve ser encaminhado, 
mas, para que a sociedade possa condu- 
zilo, deverá adquirir mecanismos de 
controle para a sua própria gestão demo- 
crática. E este, evidentemente, não é um 
caminho fácil e nem será resolvido em 
gabinetes. 

O Brasil, atualmente, é o oitavo par- 
que computacional do mundo, o que 
evidencia um rápido e irreversível pro- 
cesso. No entanto, não dispomos de ne- 
nhuma legislação para a proteção dos di- 
reitos humanos, das liberdades públicas 
e privadas, e da privacidade frente à in- 
crível potencialidade da Informática, 
pois esta permite a posse e manipulação 
por grupos (privados ou o Estado) de 
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dados sobre os cidadãos (ou empresas), 
possibilitando assim um controle social 
global. 

Não é sem fundamento que Matte- 
lard afirma que os processos de informa- 
tização da sociedade sempre navegam na 
semi-clandestinidade. E no Brasil, apesar 
de não termos legislação (nem debates) 
sobre o assunto, temos assistido à for- 
mulação de imensos BD (PIS/PASEP, 
RAIS, IR, TRU etc.), onde os dados são 
usados, cedidos trocados, cruzados e 
vendidos sem o conhecimento do inte- 
ressado, numa clara afronta aos direitos 
dos cidadãos. 

O uso abusivo de informações encon- 
tra no Brasil uma série infindável de 
exemplos contundentes e que nem mes- 
mo são questionados. O valor jurídico 
da informação (ou de dados) situa-se 
numa área cinzenta, em que o cidadão é 
sempre perdedor. O projeto RENAPE, o 
Documento único, o projeto Eleitoral 
são alguns exemplos de todo o processo, 
e que eventualmente não são negativos, 
desde que acompanhados de uma legisla- 
ção específica. 


UM POUCO DE HISTÓRIA 
Em 1968, a Assembléia Geral da 


ONU, através da Resolução 2450, ini- 
ciou o debate sobre a questão da prote- 





ção dos direitos humanos e, principal- 
mente, da vida privada em vista das no- 
vas tecnologias. O consenso em relação a 
estes problemas tem sido prejudicado, 
de certa forma,em virtude de os países 
do Terceiro Mundo estarem muito mais 
preocupados com as questões relativas à 
dependência tecnológica e cultural do 
que com a proteção do cidadão. De qual- 
quer forma, a resolução foi de funda- 
mental importância para o acirramento 
das discussões e, em 1970, a Província 
de Hesse, na Alemanha Federal, aprovou 
a primeira legislação conhecida, e em 
1973 entrou em vigor a lei sueca: o Data 
Act. 

Dois fatos marcaram época no debate 
sobre o problema de proteção da priva- 
cidade: o caso Watergate, nos EEUU, e o 
projeto SAFARI, na França. O caso 
Watergate, em 1972, foi tido como peça 
fundamental para a aprovação do Priva- 
cy Act, em 1974. E atualmente, apesar 
das limitações estaduais, existem diver- 
sas outras leis já aprovadas (ou em pro- 
jeto), inclusive com a extensão de sua 
competência para a área privada. 

O projeto SAFARI — Sistema Auto- 
matizado para os Fichários Administra- 
tivos e o Repertório dos Indivíduos — 
pretendia criar, através de um número 
único, um cadastro com todos os dados 
disponíveis sobre as pessoas físicas. O 
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uanto mais diversiticados acessórios 
complexo for um sistema, de expansão - entre 
mais sólida e contiável módulos, ín tertaces e 
deve ser sua base periféricos -,o Unitron 
Quando você tem um agora pode ser 
micro da Unitron como conectado, via telefone, a 
todas as redes existentes: 


princípio inteligente, você 


também tem a certeza de Aruanda, Cirandão, 





que o atendimento de Interdata, Cyber, 

suas necessidades em Videotexto, CMA. etc. Ou, 
processamento de dados então, às redes 

está assegurado. Ea particulares, acessando 
palavra de quem + outros micros ou 

trabalha continuamente | comunicando-se com 
para oferecer uma computadores de grande 
tecnologia sempre atual porte, na função de 


terminal inteligente. Portanto, se você deseja um 
processamento de dados com qualidade, tale 
com nossos revendedores autorizados. Para cada 
caso, uma solução inteligente. Do princípio ao tim 


ao usuário. É o que os fatos demonstram 

Na sua categoria, o Unitron andou sempre na 
trente. Além de contar com uma infinidade de 
programas, testados e aprovados, e os mais 
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Computadores 


CAIXA POSTAL 14.127 - SÃO PAULO — SP - TELEX (01 1) 32003 VEIC BR 


projeto despertou tamanha indignação 
nos franceses que, não só motivou a for- 
mulação de toda a legislação francesa a 
a respeito, como também culminou com 
a formação da Comissão Informática e 
Liberdades, que produziu vasta literatu- 
ra sobre o assunto, como os famosos Re- 
latório da Comissão de 1975 e o de Si- 
mon Nora e Alain Minc sobre a “Infor- 
matização da Sociedade”, em 1978. 

Atualmente, 22 países do mundo já 
possuem legislação específica visando a 
proteção das liberdades em relação ao 
uso de cadastros informatizados, sendo 
que quase todas surgiram de longos deba- 
tes da sociedade civil e suas associações. 

Em 1980, o Conselho da Europa 
aprovou um texto sobre o tratamento 
automatizado de dados pessoais, já subs- 
crito por dez países. A partir daí, foi 
criada uma Comissão para estudos e re- 
comendações sobre problemas específi- 
cos, cuja preocupação maior tem sido, 
sobretudo, a de uma nova abordagem do 
Direito Público, objetivando principal- 
mente um desenvolvimento democrático 
das sociedades informatizadas. 

Em setembro de 1980, 21 países 
aprovaram as recomendações adotadas 
pelo Conselho de Ministros do OCDE 
(Organização para Cooperação e Desen- 
volvimento Econômico) a respeito da 
proteção da vida privada e de garantias, 
a nível internacional, de um fluxo de 
dados seguro e regular. Quanto a este 
último, a OCDE identifica também a ne- 
cessidade de que se assegure o funciona- 
mento do fluxo de dados transfronteiras 
(FDT) como, por exemplo, entre ban- 
cos, reservas de passagens e também na 
comunicação entre matrizes e filiais de 
empresas multinacionais. 

Assim, O problema da informatização 
não coloca em risco apenas a integridade 
do ser humano, mas também a própria 
noção de soberania nacional. Sobre este 
tema os países do Terceiro Mundo têm 
colocado as suas preocupações, e o Bra- 
sil várias vezes manifestou suas posições 
de defesa de nossa cultura, do desenvol- 
vimento tecnológico e de segurança 
nacional. 


ALGUNS PRINCIPIOS 


Os textos da OCDE e do Conselho da 
Europa nos dão, fundamentalmente, al- 
guns pontos básicos sobre a defesa e a 
proteção das liberdades públicas e indi- 
dividuais: princípio da não fidedignida- 
de (loyauté ) — os dados não devem ser 
coletados ou tratados quando tiverem 
procedência não fidedigna ou ilícita; 
princípio da exatidão — pressupõe a 
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obrigação em verificar a exatidão dos 
dados, assegurando-se a sua permanente 
atualização; princípio da finalidade — a 
finalidade da criação de um cadastro de- 
ve ser definida anteriormente, possibili- 
tando, em qualquer momento, a verifi- 
cação se: os dados coletados e arquiva- 
dos estão de acordo com a finalidade de 
sua solicitação (princípio de pertinên- 
cia), os dados não estão sendo usados 
com objetivos diferentes dos correspon- 
dentes à finalidade do cadastro (princípio 
de utilização não abusiva), a conserva- 
ção dos dados não excedeu (em termos 
de tempo) ao permitido para atender às 
finalidades iniciais (com exceção dos 
dados não nominais); princípio da publi- 
cidade — deve ser pública a existência 
dos cadastros com dados nominais; prin- 
cípio de acesso individual — é direito de 
todo cidadão conhecer os dados existen- 
tes a seu respeito e em caso de erro 
(inexatidão ou procedência ilegal) tam- 
bém é direito contestar ou destruir estes 
dados; princípio de segurança — deverão 
ser tomadas medidas de segurança para 
manter a integridade dos cadastros. 

Além destes, que já fazem parte da 
legislação de inúmeros países, outro 
princípio começa a ter importância para 
a discussão da privacidade: o direito de 
acesso, por todos os cidadãos, às infor- 
mações administrativas de interesse pú- 
blico. Este princípio, que consta na le- 
gislação de quase todos os países, de for- 
ma implícita ou explícita, pode-se tor- 
nar viável operacionalmente e por este 
motivo tem sido insistentemente lembra- 
do como ponto de partida para a sociali- 
zação das informações. 


O CASO BRASILEIRO 


No Brasil, desde 1975 já foram apre- 
sentados vários projetos de lei tratando 
sobre este tema, e todos eles, exceto o 
projeto da Deputada Cristina Tavares 
(em 1981) que ainda está em tramitação 
no Senado, foram retirados ou vetados. 
Este projeto em trâmite dispõe sobre a 
divulgação, pelo poder Executivo, do 
elenco de BD existentes no país, com 
indicação do universo abrangido e o tipo 
de informação. 

Mas, definitivamente, o problema 
não se exaure em algumas linhas da 
legislação. É de fundamental importância 
que sejam estabelecidos mecanismos de 
operaciónalização factíveis, dentro de 
uma reformulação do Poder Judiciário e 
envolvendo mudanças nos códigos Civil, 
Penal e na própria Constituição. É preci- 
so que se aproveite o momento de rede- 
mocratização do país para a criação não 


só de uma legislação, mas de mecanis- 
mos políticos que permitam o real cum- 
primento da lei. 

Com esta intenção, o conselho de In- 
formática e Direitos Humanos, criado 
pela ANDEI como órgão colegiado de 
várias entidades (Associação de sociólo- 
gos, Federação Nacional de Jornalistas, 
ABI, Instituto de Engenharia, partidos 
políticos e várias entidades da área jurí- 
dica, entre outras), está elaborando su- 
gestões para que esta legislação abranja 
todos os universos possíveis, e também 
incentivando o debate em outras áreas 
não específicas da comunidade de Infor- 
mática, num trabalho de base junto a 


toda a sociedade. = 


Luzia Portinari Greggio atua na área de PD há 
16 anos, é ex-Presidente da Associação dos 
Profissionais de Processamento de Dados do 
Estado de São Paulo, e Presidente do Conse- 
lho de Informática e Direitos Humanos, sendo 
também Consultora Técnica da revista Infor- 
mática & Administração. 


A MANEIRA INTELIGENTE 
DE FAZER ECONOMIA 


Duplica a capacidade 
dos seus disquetes 5% 


y 
Del 8] É le 


Faça já o seu pedido 
Preço de Lançamento: 
Cr$ 49.000,00 
CONNdi 
Rua José Maria Lisboa, 580 


Tel.: 287-4716 - CEP 01423 
Jd. Paulista - São Paulo - SP 



























A Filcres faz de sua empresa o seu Show Room 


E x» 


levam até você toda sua estrutura de Marketing. Conheça 
os CP300 e CP5OO aliados ao alto desempenho da Impressora 


P50O e na configuração exata do seu problema. 


À Filcres oferece aos seus usuários assistência técnica 


autorizada Prológica [] , completa biblioteca 
de software, diversificada linha de suprimentos, além de 


/ [E 





BANCOS DE DADOS — 
Aqui está um mini gerente 
de dados prático e eficiente, 
para os micros da linha 
TRS-80. Experimente... 
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MINI SISTEMA de GERENCIA de BANCOS de DADOS 
+ Versao 1.3 um 


Copyright (C) 4984 - Ivan Camilo da Cruz 





Um gerente prático 
em banco de dados 


banco de dados é um programa que auxilia o usuá- 
rio na tarefa de armazenar e recuperar dados de for- 
ma eficiente. Neste artigo focalizaremos um siste- 
ma de gerência de banco de dados, trazendo um 
programa para tal e detalhando o modo de utilizá-lo. 
Escrito em linguagem BASIC para micros da linha TRS-80 
modelos I e III, este artigo está dividido em cinco partes: 
. Como criar um banco de dados. 
Como introduzir e recuperar dados. 
Como indexar dados. 
Como imprimir dados. 
Observações gerais de implementação. 


COMO CRIAR BANCOS DE DADOS 


A criação do banco de dados compreende, em primeiro lu- 
gar, as definições de todos os campos da ficha e sua divisão pe- 
las telas. A ficha é um conjunto de campos e mensagens dividi- 
dos em várias telas de vídeo, sendo a menor unidade lida ou es- 
crita pelo gerenciador no disco. Já a tela é o conjunto de cam- 
pos e mensagens que são impressos e/ou lidos de cada vez, en- 
quanto que o campo é a menor unidade de informações arma- 
zenável pelo banco de dados. Uma ficha ou uma tela é um con- 
junto heterogêneo, isto é, de vários tipos de dados, enquanto 
um campo é homogêneo, ou seja, contém informações de ape- 
nas um tipo. 

Características de um campo: 

1 — NOME: string de caracteres que identifica o campo. Deve 
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ser único em cada tela. O tamanho máximo teórico do nome 
de um campo é de 255 caracteres. 
Regras de formação de nomes: 

um nome deve começar com uma letra e pode ser seguido 
de letras ou números; ou um nome deve começar com “ * 
(plic), sendo seguido de um ou mais caracteres quaisquer, in- 
clusive brancos, e deve terminar com “ * *, 

2 — POSIÇÃO: a posição em que o campo deve aparecer na 
tela. Um campo não deve ocupar a primeira ou as três últimas 
linhas da tela. 

3 — TIPO: tipo do dado que será armazenado no campo. Os ti- 
pos possíveis e seus respectivos símbolos são: String ($), Intei- 
ro (%), Real (!) e Real de Precisão Dupla (3). 

4 — TAMANHO: tamanho do campo em caracteres. O tama- 
nho máximo teórico de um campo é de 254 caracteres. 

5 — DECIMAIS: número de casas decimais do campo. Caracte- 
rística que se aplica somente a campos numéricos. 

Estas definições se tornarão mais claras com um pequeno 
exemplo prático. Vamos criar um banco de dados para armaze- 
nar as fichas funcionais dos empregados de uma firma. Os cam- 
pos me compõe esta ficha são: NOME, PAI, MÃE, DATA DO 
NASCIMENTO, EST. CIVIL, CÔNJUGE, IDENTIDADE, ÓR- 
GÃO EXPEDIDOR, CARTEIRA PROFISSIONAL, SÊ) ' 
CERTIF. DE RESERVISTA, TÍTULO ELEITORAL, SEÇÃO, 
ZONA, CIC, ENDEREÇO, CIDADE, ESTADO, DATA DE 
ADMISSÃO, CARGO, SALÁRIO. 

Estes campos são divididos em duas telas como mostram as 
figuras 1 e 2. 
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Agora deveremos rodar o programa e selecionar a opção 1 
do Menu Secundário 1 — ABRIR/CRIAR UM BANCO DE DA- 
DOS, (figura 3). O programa pedirá então o nome do banco a 
ser usado. Esse nome é uma sequência de um a oito caracteres 
alfanuméricos, sendo o primeiro obrigatoriamente alfabético. 
Fornecido o nome, o programa irá procurá-lo no disco e se for 
constatada sua inexistência, será feita a pergunta: O BANCO 
DE DADOS NÃO EXISTE. QUER CRIÁ-LO?. A essa pergunta, 
responda S. Em seguida à pergunta NÚMERO DE TELAS?, 
responda 2. 

Depois disso, o programa pedirá, uma a uma, as definições 
dos campos da tela 1 (figura 1). Sendo assim, digite os dados: 


NOME, 128,$,30 

PAL,271,$,30 

MAE ,335,$,30 

“DATA DO NASCIMENTO” ,384,$,8 
'EST. CIVIL',512,$,1 

CONJUGE ,532,$,30 

IDENTIDADE ,640,$,12 

“DRGAO EXPEDIDOR” ,674,$,12 
'C. PROFIS.',704,$,12 

“SERIE "138,8, 12 
'CERT. DE RESERVISTA!,768,$,15 


O primeiro parâmetro é o nome do campo, o segundo é sua 
posição na tela, o terceiro é o tipo, o quarto é o tamanho. Cam- 
pos numéricos têm um quinto parâmetro, o número de casas 
decimais, que deve vir depois do tamanho. 

Note que o nome de alguns campos vem entre “ * “ (plics). 
Isso ocorre devido à presença de caracteres especiais no nome. 
O campo SERIE possui dez espaços no final de seu nome ape- 
nas por motivos estéticos. 

Após entrar com todos os campos digite “.” (ponto) e o pro- 
grama assumirá o fim da definição dos campos desta tela. A se- 
guir ele pedirá o número de mensagens da tela. Mensagem é 
uma constante que aparece na tela junto aos campos com fins 
documentais e/ou estéticos. Como a tela de que estamos tra- 
tando possui duas mensagens, responda com 2. Em seguida, o 
programa pedirá a posição e o conteúdo de cada mensagem. 
Responda: 

82 
*** FICHA FUNCIONAL *** 
256 


FILIACAO 


» FICHA FUNCIONAL 
NOME : 


FILIACAO 
DATA DO NASCIMENTO = 


EST. CIVIL : 5 CONJUGE 3 


IDENTIDAL 
» PROFIS. : 
CERT. DE RESERVISTA 


EXPEDIDOR = 


TIT. ELEIT. & 
CIC: 
ENDERECO = 


CIDADE z : ESTADO : 


0.005 


Figura 2 
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MENUS DO SISTEMA: 


MENU PRINCIPAL 


- ABRIR/CRIAR/MODIFICAR/APAGAR BANCOS 
INSERIR/MODIFICAR/APAGAR/PROCURAR DADOS 
INDEXAR/DESINDEXAR DADOS 
CRIAR/MODIFICAR/EXECUTAR RELATORIOS 


v 
MENU SECUNDARIO — 1 


ABRIR/CRIAR UM BANCO DE DADOS 
MODIFICAR A DESCRICAO DO BANCO 
APAGAR O BANCO DE DADOS 
FECHAR O BANCO DE DADOS 
RETORNAR AO MENU PRINCIPAL 


v 
MENU SECUNDARIO - 2 


INSERIR DADOS 

INSERIR SOBRE FICHAS APAGADAS 
LOCALIZAR/DELETAR/MODIFICAR DADOS 
RETORNAR AO MENU PRINCIPAL 


v 
MENU SECUNDÁRIO — 3 


ABRIR UM ARQUIVO DE INDICES 

FECHAR O ARQUIVO DE INDICES 
- CRIAR UM ARQUIVO DE INDICES 

APAGAR UM ARQUIVO DE INDICES 
- RETORNAR AO MENU PRINCIPAL 


' 
v 
MENU SECUNDARIO - 4 


— CRIAR DESCRICAO DE RELATORIO 
2 — MODIFICAR DESCRICAO DE RELATORIO 
3 — APAGAR DESCRICAO DE RELATORIO 

- IMPRIMIR 

- RETORNAR AO MENU PRINCIPAL 


v 
ITENS A MODIFICAR 


— CARACTERISTICAS DA IMPRESSORA 
CARACTERISTICAS DO CABECALHO 
CARACTERISTICAS DO DETALHE 
CARACTERISTICAS DO RODAPE * 
RETORNA AO MENU SECUNDARTO 





Figura 3 


Observe que se o conteúdo da mensagem contiver os delimi- 
tadores “,” (vírgula) ou “:” (dois pontos), a string deverá ser 
fornecida entre aspas. Então o programa mostrará sua tela e 
perguntará: GOSTOU?, responda S ou N, se você respondeu 
positivamente, o programa repetirá todo o ciclo para a segunda 
tela. Caso contrário, pedirá modificações nos campos, um a um. 

Antes de modificar um campo, você pode querer saber os 
valores atuais de cada uma de suas características. Para isso, di- 
gite “7” e eles serão impressos. Caso não se deseje fazer modifi- 
cações neste campo, basta digitar ENTER e ele permanecerá 
inalterado. 

Para modificar o valor de apenas uma característica, não é 
necessário redigitar toda a definição, basta digitar as vírgulas e 
o valor a ser modificado. Por exemplo, suponha que você te- 
nha errado a posição do campo IDENTIDADE. Para corrigi-lo, ,, 
digite *,640,,”. e 
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Pode ser necessário também incluir ou retirar um campo. 
Para incluir digite “+”, e um novo campo em branco será acres- 
centado antes do atual. Da mesma forma, se for digitado “-”, o 
campo atual será eliminado. 

Após passar por todos os campos, digite novamente 
modificação terminará. Em seguida, o programa perguntará pe- 
los novos valores de posição e conteúdo das mensagens. Caso 
não houver alterações a fazer, digite apenas ENTER. Em caso 
de modificações, digite o novo valor e ele substituirá o anterior. 

As definições dos campos para a tela 2 são: 


“rea 


“TIT. ELEIT.',128,$,8 
SESSAD,155,$,5 

ZONA, 176,$,3 

CIC,256,8,12 
ENDERECO,384,$,40 

"CIDADE *,448,$,20 
ESTADO, 488,$,2 

“DATA DE ADHISSAO” ,576,$,8 
CARGO, 609,$,20 
SALARIO,640,H,14,2 


Observe que o campo CIDADE tem dois espaços no final de 
seu nome. A tela 2 não tem mensagem. 

Após definir todas as telas o computador gravará a descri- 
ção do banco de dados em um arquivo no disco com o nome 
escolhido por você e com a extensão “/DSC”, Criará também 
Ps arquivos para conter os dados com extensões “/DTO” e 
“/DTI”. 


COMO INTRODUZIR E RECUPERAR DADOS 


Para introduzir dados no banco, selecione a o 1 do Me- 
nu Secundário 2 — INSERIR DADOS (figura 3). O programa 
mostrará a tela 1 de sua ficha pronta para ser preenchida. A 
7 2 será vista mais adiante. 

árias teclas de controle podem ser usadas auxiliar o 
preenchimento da ficha. As setinhas à direita e D oEnaria mo- 
vem o cursor um caráter à direita ou à esquerda, respectivamente. 
As setinhas para baixo e para cima movem o cursor para o pró- 
ximo campo e para 0 campo anterior da tela, respectivamente. 

As teclas CTRL+Z CTRL+W passam para a próxima tela e 
voltam à tela anterior, respectivamente. Os micros compatíveis 
com o TRS$-80 modelo III não possuem a tecla: CTRL. Ela é si- 
mulada pressionando-se ao mesmo tempo SHIFT e a setinha 
para baixo. Para mais detalhes, consulte o capítulo 4 do Manual 
de Operação e Linguagem BASIC do CP-500. 

Selecione a opção 3 e você poderá pesquisar, modificar e 
apagar suas fichas. Esta opção também tem vários comandos 
de controle. A tecla ““?” lhe mostrará uma lista dos disponíveis. 

As teclas setinha para baixo e setinha para cima passam, res- 

ctivamente, para a próxima ficha e para a anterior. As teclas 
“Pe “/” passam, respectivamente, para a primeira e última fi- 
cha. Os comandos CTRL+Z e W têm a mesma função 
anterior, ou seja, passam telas. 

O comando E permite modificar a ficha. Quando se usa essa 
tecla, as de controle voltam a ter a mesma função que possuíam 
no momento da inserção. 

A tecla A apaga uma ficha. Na verdade, não há uma elimina- 
ção física da ficha. Este comando apenas coloca uma marca ne- 
la. Quando se usa a opção 2 do Menu Secundário 2 — INSE- 
RIR SOBRE FICHAS APAGADAS, em vez de ser criada uma 
ficha nova, a ficha inserida substitui a apagada. O comando R 
retira a marca da ficha e deve ser usado antes de se inserir uma 
nova ficha, ao usar a opção 2. O comando F faz pesquisas no 
banco de dados, o que só será visto mais adiante. 
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COMO INDEXAR DADOS 


A indexação de banco de dados é uma técnica de programa- 
ção que permite organizar e selecionar fichas do banco. O mé- 
todo de indexação empregado são árvores binárias. 

Para se criar um arquivo-índice, selecione a opção 3 do Me- 
nu Secundário 3 — CRIAR UM ARQUIVO DE ICES. Esta 
opção necessita de três parâmetros: o nome do arquivo-índice 
(que conterá a árvore binária), o campo-chave e a condição de 
indexação. O nome do arquivo-índice segue as mesmas regras 
de formação dos nomes de bancos de dados. 

O campo-chave é um dos campos do banco que é usado co- 
mo parâmetro da indexação. Ele pode ser qualquer um dos 
campos do banco, desde que tenha um tamanho menor ou igual 
a 248 caracteres. O nome do campo-chave deve vir entre “*” 
(plics), se ele contiver caracteres especiais. Se o campo não 
pertence à tela 1, seu nome deve ser seguido pelo número da 
E) a que pertence, entre parênteses. Por exemplo" “CIDADE” 

2 


A condição de indexação é uma expressão lógica que selecio- 
na as fichas do banco que serão incluídas no arquivo-índice. A 
sintaxe de uma expressão lógica é: 


CEXPR. RELACIONAL) [ (OP. LOGICO) (EXPR. RELACIONAL) 1... 


Os colchetes indicam que o seu conteúdo é opcional. As re- 
ticências perros o conteúdo dos colchetes pode ser repe- 
tido. O <OP. ICO > pode ser “.” (AND) ou “+” (OR). A 
sintaxe de uma <EXPR. RELACIONAL > é: 


(CAMPO) E “C" (H TELA) ")" 3 COP. RELACIONAL) (CONSTANTE) 


O número da tela é obrigatório quando q campo não pertence 
à tela número 1.0 <OP. RELACIONAL: ic ser: = (igual), 
<> pentes < (menor), <=(menor ou igual), > (maior), 
>= (maior ou igual). A <CONSTANTE > deve ser uma string 
entre aspas para campos do tipo “$” e um número para os ou- 
tros tipos de campos. 

São exemplos de expressões lógicas: 


NOME )= "IT". NOME € "J” 
NOME € "1% + NOME De "JM" 
SALARIOC2) )= 2000000 . “CIDADE “(2)="Rio de Janeiro” 


A primeira expressão serve para selecionar apenas as fichas 
cujos nomes começam pela letra “IT”. A segunda, para retirar as 
fichas cujos nomes começam pela letra “I” e a terceira expres- 
são serve para selecionar as fichas de altos funcionários residen- 
tes no Rio. 

Todos os bancos de dados têm um campo pré-definido que 
se chama “APAGADO? Este campo é do tipo “$” e assume o 
valor “S” se a ficha estiver apagada e “N” em caso contrário. 
Isso permite ao usuário selecionar ou eliminar, da indexação, 
as fichas marcadas como apagadas. Por exemplo, a expressão 
“APAGADO? = “Nº” eliminará da indexação todas as fichas 
marcadas como apagadas. 

Quando um arquivo-índice está aberto, o banco de dados 
aparenta estar ordenado pelo campo-chave e apenas as fichas 
que foram incluídas no arquivo-índice ficam acessíveis. 

Todas as inserções feitas no banco de dados serão automa- 
ticamente incluídas no arquivo-índice que estiver aberto. Os 
outros arquivos-índices que, por ventura, o banco possua, per- 
manecerão inalterados. 

Quando um arquivo-índice estiver aberto você poderá usar 
o comando “F” da opção 3 do Menu Secundário 2 para locali- 
zar uma ficha por seu campo-chave. O programa pedirá uma 
constante para pesquisa. No caso de o tipo do campo-chave ser 
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“$”, não é necessário fornecer todo o campo, apenas uma par- 
te dele é suficiente. Por exemplo: para localizar “Antonio Er- 
mirio de Morais” bastará fornecer a string “Antonio”. Atenção: 
as aspas não devem ser usadas. 

A opção 2 do Menu Secundário 2 — INSERIR SOBRE FI- 
CHAS APAGADAS — não pode ser empregada quando há um 
arquivo-índice aberto. 


COMO IMPRIMIR DADOS 


Este programa oferece a possibilidade de se criar relatórios 
com bastante flexibilidade. Antes de se executar um relatório é 
preciso descrever o que é uma PÁGINA DE RELATÓRIO. Tra- 
ta-se da menor unidade impressa pelo programa em uma im- 
pressora. É composta de três partes: o cabeçalho, o detalhe e o 
rodapé. A descrição da página também inclui a descrição da 
impressora para a qual foi feita. 

Após selecionar a opção 1 do Menu Secundário 4 — CRIAR 
DESCRIÇÃO DE RELATÓRIO — o computador pedirá o no- 
me do arquivo de formato da impressão. Nele ficarão armaze- 
nadas as descrições da impressora e da página. O nome deste 
arquivo segue a mesma regra de formação do nome do banco 
de dados e será gravado no disco com extensão “'/FMT”. Após 
isso, o computador pedirá a descrição da impressora, que con- 
siste do número de colunas, número de linhas e sequências ini- 
cial e final. 

As sequências inicial e final são conjuntos de caracteres es- 
peciais transmitidos para a impressora antes e depois de se pro- 
cessar o relatório. Com isso, pode-se modificar automaticamen- 
te algumas características da impressora, como o tamanho das 
letras, o conjunto dos caracteres usados etc. Para saber quais 
são os caracteres especiais da impressora que você está usando, 
consulte o manual, pois eles não são padronizados. 

Para entrar com essas sequências deve-se digitar os códigos 
numéricos dos caracteres. Um máximo de 255 é permitido pa- 
ra cada sequência. Para encerrar a entrada em uma sequência 
basta digitar ENTER. 





PARA IMPRESSORAS DE 132 COLUNAS 
CABEÇALHO 

sde linhas = 8 
TABULACAO CONTEUDO 


o (vazia) 
0 (vazia) 


43 “RELACAO DE PUNCIONARIOS 
0 (vazia) 
1 130" ifens) 
28 “NOME(31 /ENDERECO( 25 )CIDADE( 9 ESTADO! 
1 130 *-* 
0 (vazia) 
A posicao do contador de paginas é : linha = 4 
coluna = 100 


Obs: os números entre parêntesis na línha 6 deverão ser substi- 
tuídos por uma quantidade igual de espaços. 


DETALHE 


* do colunas = 4 
TABULACAO CAMPO 

15 NOME 

47 ENDERECO(2) 
89 "CIDADE (2) 
na ESTADO(2) 


RODAPÉ 


| “de linhas = 4 


TABULACAO CONTEUDO | 
0 (vazia) 
1 130 "-" (hifens) 
0 (vazia) 
0 (vazia) 


Obs: O rodapé não terá contador de páginas. 





PARA IMPRESSORAS DE 80 COLUNAS 
CABEÇALHO 

sede linhas = 9 
TABULACAO CONTEUDO 


º (vazia) 
0 (vazia) 


” “RELACAO DE FUNCIONARIOS" 
o (vazia) 

1 78 "-* (hifens) 

18 “NOME( 31 )ENDERECO” 

46 "CIDADE(9) ESTADO” 

1 78 "-" (hifens) 

º (vazia) 


DETALHE 


* de colunas = 4 


TABULACAO CAMPO 
4 NOME 

36 ENDERECO( 2) 
36 "CIDADE (2) 
63 ESTADO(2) 


* de linhas de separação = 1 
Obs: Como a tabulação da terceira coluna (campo CIDADE) cai sobre 
o campo anterior, esta coluna será impressa uma linha abaixo. 
Portanto, cada ficha ocupará duas linhas. 
RODAPÉ 
? de linhas = 4 


TABULACAO CONTEUDO 

















Pigura 4 


MICRO SISTEMAS, fevereiro/85 





0 (vazia) 

y 78 "-* (hifens) 

0 (vazia) 

0 (vazia) 
Figura 5 


Após descrever a impressora, deve-se descrever o cabeçalho, 
um conjunto de até 10 linhas que é impresso no topo da folha 
de papel. Cada linha tem uma tabulação e um conteúdo. O con- 
teúdo é uma string de caracteres que se contiver os delimitado- 
res “,” ou “:” deverá estar entre aspas. 

ionalmente pode ser colocado no cabeçalho um conta- 
dor de páginas. Neste caso o programa pedirá o número da li- 
nha e da coluna do cabeçalho onde o contador deverá ser im- 
presso. Se a posição dada já estiver ocupada por um string ou 
estiver fora do cabeçalho, o programa rejeitará os dados. 

Em seguida deve-se descrever o detalhe, um conjunto de 1 a 
50 colunas, cada uma composta de um dos campos do banco 
de dados. 

Para cada coluna deve ser fornecida uma tabulação e um 
nome de campo. Se o campo não pertencer à primeira tela, o 
seu nome deverá vir seguido do número da tela entre parênteses. 
A tabulação deverá ser sempre em ordem crescente. No caso de 
se dar uma tabulação menor que a dada anteriormente, o cam- 
po correspondente será impresso uma linha abaixo do campo 
anterior. Com esta característica podemos imprimir uma ficha 
maior que o tamanho da impressora. 

Por motivos estéticos é habitual colocar uma ou mais linhas 
em branco entre cada ficha. Para isso o programa pede o núme- 
ro de linhas entre as fichas logo após a definição das colunas. 

Depois de fornecida a descrição do detalhe, o programa pe- 
dirá a descrição do rodapé, que é igual ao cabeçalho em todos 
os sentidos, diferenciando-se apenas pelo fato de ser impresso 
embaixo do detalhe. Veja nas figuras 4 e 5 exemplos disso. 

Um gabarito de impressão pode ser muito útil na criação da 
definição da página. 

Para executar um relatório já definido, selecione a opção 4 
do meu principal. O programa pedirá o nome do arquivo de 
formato que foi definido anteriormente. Pedirá, também, uma 
condição para a impressão. A condição é igual em tudo à con- 
dição de indexação. 


OBSERVAÇÕES GERAIS DE IMPLEMENTAÇÃO 


Assim como todas as obras humanas, este programa tam- 
bém tem suas limitações. Vamos conhecê-las: 


27 












UM GERENTE PRÁTICO EM BANCO DE DADOS 





290 TES(12 
rava uma * 
lido”: TESCI6 
os sequenciais 

300 TES(18)=“Valido apenas em arquivos indexados”: TES(19)="Arqu 
ivo de indices inexistente” 

30 TPSCÍ)="S0: TPSCD)="%AE TPSCI)=M IME PECA =p 

320 TT(2)=2: TT(3)=4: TT(4)=8 

330 ZR$(2)=MKIS(O): ZR$(3)=MKSSC0): ZRS(4)=HKDSCO) 

340 FOR I=£ TO 4000: NEXT T 

350 GOTO 10960 

360 * 

azo * 

380 Cnemmnnmnnanananna nana nana 

aso ROTINAS DE VIDEO mu 

400 * nene nan nn nn nn nn nm 


Nao existe banco ge dados aberto“: TE 
= TES(14)="Posicao invalida”: TESC(15) 
“Erro de disco”: TES(17)="“Valido apenas em arquiv 











CAMPOS POR FICHA — 200 

TELAS POR FICHA — 100 

MENSAGENS POR TELA — 10 

OPERAÇÕES RELACIONAIS — 20 

LINHAS DE CABEÇALHO — 10 

LINHAS DE RODAPÉ — 10 

COLUNAS DE DETALHE — 50 

TAMANHO DE CAMPOS “$” — 254 caracteres 
















— NNAN800 | 

























VALOR DE CAMPOS “%” — 32768/32767 SEO cumdiáninia 

VALOR DE CAMPOS “!” — 10*= 38/10** 38 (6 dígitos de 490 aRb. AEITURÁ. DO TERIA 

VALOR DE CAMPOS “4” — 10:+38/10%*38 (16 dígitos de | so UTM Teo CR cas? TO POO FAO, FR, MERO, 
co ) pod "Sais CCS() Dados lidos 

precisão 





490 + 
500 1020: J=P4(I): K=P2(I): FOSO 

540 Ii=PC(J)+ENCNCS(UJ))+15362: 12=T4+TC(J)-S 

520 ED=I1: PR=PEEK(ED): POKE ED,CR 

530 CS=INKEYS: IF C8="" THEN 530 

540 ON INSTR(C1$,C$)+1 GOTO 610,550,560,570,580,680,590,600 

550 POKE ED,PR: ED=11-13 GOTO 440 

S60 IC=1: GOTO 630 

570 IC=-1: GOTO 630 

SB0 POKE ED,PR: ED=I2+1: GOTO 450 

S90 GOSUB 680: I=1-4: IF ICí THEN I=NP: GOTO 500 ELSE 500 

600 GOSUB 680: I=I+1: IF IDNP THEN I=1: GOTO SOO ELSE 500 

640 IF ASC(CS)(32 THEN GOSUB 10700: GOTO 530 

620 FO=-1: IC=1: PR=ASC(CS) "Modificacao na tela atual 

630 POKE ED,PR: ED=ED+IC 

640 IF ED(IÍ THEN J=J-43 IF JXPSCI) THEN Jek: GOTO 510 ELSE S10 
650 IF ED)I2 THEN J=J+4? IF JK THEN J=Pí(I): GOTO 510 ELSE 540 
660 PR=PEEKCED): POKE ED,CR 

670 GOTO 530 

680 IF NOT FO THEN RETURN 

690 POKE ED,PR: P=VARPTR(STS) 

700 FOR J=PÁcI) TO K 

740 Ii=PCCJ)+LENCNCSC(J)) + 15362 

720 POKE P, TC(J) 

730 POKE P44, I1 AND 255 

740 POKE P+2, 11/256 

750 IF TP(J)=1 THEN R$=STS ELSE IF TP(J)=2 THEN R$=MKISCVAL(STS) 
) ELSE IF TP(J)=3 THEN R$=HKSS(VAL(STS)) ELSE R$=MKDSCVALCSTS)) 
760 LSET CCS(J)=R$ 

770 NEXT 3 

780 RETURN 

790 
Boo 
B1o 
820 "Entra: K, TM, CR 


Gerenciador de banco de dados pe 


650 fee man eaaiamcereacnaenanesaamannas 
B60 R$="”: PRINT 9K,CHRSCCR);3 J=0 

870 CS=INKEYS: IF CS="” THEN 870 

880 IF J=TM THEN 900 

890 IF C$)=” AND CS(=“z” THEN R$=R$+C$! J=J+1: GOTO 930 

900 IF CS=CHR$(13) THEN PRINT 9K+),” “53 RETURN 

910 IF CS=CHRS(8) THEN IF J50 THEN J=J-1: R$=LEFTS(RS,J) ELSE 87 





O programa utiliza vários arquivos de dados para armazenar 
descrições e dados. Portanto, ao rodar o BASIC disco, devemos 
informar quantos arquivos serão usados. Em um caso extremo 
o programa poderá usar até 12 arquivos simultaneamente. Por- 
tanto, se você está usando NEWDOS-80, entre com o comando 
BASIC 12V ao rodar o interpretador BASIC. 

Para facilitar as modificações no programa, é aconselhável 
digitá-lo com os comentários. Entretanto, não é possível exe- 
cutar o programa com os comentários. Por isso, após digitá-lo 
e salvá-lo em disco, execute o comando CMD“C” e salve a có- 
pia compactada em outro arquivo. 
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emma nana 


















10 'MBDADOS/0AS Gerenciador de Banco de Dados - VERSAO 1.4 
20 eemennanemanaas 
30 * INICIALIZA 


40 eennmenan 











OM, onde está gravado 























SO CLS: CLEAR 3200: DEFINT A-Z: CMD“BREAK, Nº D 
60 FOR K=1 TO 48: READ X, Y4, Y 

1.4 = T Je, . 
70 FOR I=X+4 TO X+6 STEP 2: FOR J=Y1i TO Y2: SETCI,J): NEXT JE FO ed Pd gia RA abç q iii E ER A aseonu éri- 
R J=y2 TO Y4 STEP 45 SETCI+, 9): NEXT JE NEXT 1 940 BOTO 870" sp m 
80 NEXT K 950 emma 














90 DATA 0,0,20 940 Y DADOS mam 

200 BATA 4 ri 970 EETITITIT 

2, eu, Foi a ” 980 ntras I - Numero da tela a ser mostrada, Pi(), Pat), 
110 DATA 48 +20,60,0,2,60,12,14 990 PCC), TRC), EMSC), NCSC), CCSC), ELO, NF 





,60,18,2 





1000 'Destroi: J 






+76,148,20,80,0,2,80,9,11,80,18,20 






meiro equipamento brasileiro a operar com o novissimo 











,84,0,2,84,9,11,64,18,20,88,3,8,88,12/47 A rá FOR J=PÉCID TO PCI) . 
130 DATA 96, 0,20,400,0,2,100,18,20,104,0,2,104,18,20,108,3,5,108 1030 PRINT 9 PC(J)SLENCNCS(J))42,5 ital Research 
IS iZ Máis À “NINI SISTEMA de GERENCIA de BANCOS de DADOS” 4040 IF TP(J)=í THEN PRINT CCS(J); ELSE IF TP(J)=2 THEN PRINT US g id 
586 5 ING FMSCJ); CUICCCS(J)); ELSE IF TP(J)=3 PRINT USING FHSCJ); CUS : - 
150 PRINTE PRINT TAB(22), “mem Versao 1.4 aum (CCS(J))) ELSE PRINT USING FHS(J); CUDICOSC))); ; Opcionalmente o NAJA 800 pode serequipado com placa dealtareso- 
160 PRINT: PRINT TAB(11);“Copyright (C) 1984 — Ivan Camílo da 1050 NEXT J 
Cruz” = gã A » EM - o a 
170 DIM BCS,C8,C,C1,C2,CH,CHS,CO, DUMAS, E4,E4S,ED,E25 E3,E95,E4, DO O era Sã, No JOS, VR lução gráfica (640X240 pontos), disco rígido tipo Winchester, disco de 
E4$,ECS,ED,ED!,ELO,ELOS,ER,FO,F1,F2,F3,F4,FS,FZ,FF,FIM,FM,FMS,I, 1080 IF ELO(>0 THEN PRINT asas, “APAGADA” ; 








8'*, comunicação serial e sintetizador de voz. 












11,12 1090 RETURN 

180 DIM TA,IC,ID,IDS,II,J,J1,J2,K,LI,LL,LU,N$,N2,N3,N4,NS,N6,N7, 1100 CeRmMmmm mm mm 
N8,N9,NA,NF,NP,0,0P$S,P,PT,PG,PL,PR 14440 "mem DISPLAY MOLDURA 
190 DIM R$,RAIZ,S$,51$,525,50MS, TC, TD, TKS, VIH, VZH 1120 Cemmnnnanunnanna nan 









VR$="uam MBEDADOS - Versao 1.4 uau 4130 "Entra: BCS, IDS, VR$ 








200 CR=176: Fó=-1: ST 









1140 + 
210 ct “*CHRS(9)+CHRS(B)+CHRS(L0)+CHR$(13)+CHRS(23)+CHR$E (26) 1150 PRINT 916,UVRS; 
220 c2 +CHR$(10)+CHR$(13)+;/77+CHR$(23)+CHR$(26)+"EenaRrF E 1160 PRINT 9832, CHR$(151);STRINGS(20,191);CHR$(151);STRINGSC14, 





230 SOM$="“3 FOR I=1 TO 267 READ J: SOMS=SOMS+CHR$CJ): NEXT 1 131); CHRS(151);STRINGS(9,131);CHR$(151);STRINGS(16,134);CHR$C(474 
240 PT=VARPTR(SOMS) »s 

250 DATA 62,80,245,62,1,211,255,62,50,61,32,253,62,2,211,255,62, 14170 PRINT CHR$(149);” BANCO =“; BCS; TABC(ZL);CHRSCL49);TAB(I6 
50,61,32,253,241,61,32,233,201 7; CHRSC149); TAB(46) CHR$(149); TAB (43); CHR$C170); 

260 DIM C5(50),CCS(200),CMSC(10,10),CM(20), CTS(20),DCC200),FHS(20 1180 PRINT CHR$(149);” INDICE = “;IDS;TAB(21);CHRS(149);TAB(I6)s 
0),L4$(10),L6$(10),LG(20),NCC10), NC$ (200), NH(10), PACO), P2(10),P CHR$(149); TAB(46);CHR$(149);2 POKE 14383,170 
C(200),PH(10,10),RL(20), T4(10), T5(50), TAC 10), TA(ÍO), TO(200), TESC 1190 RETURN 

19), TP (200), TPSC4), TTCA), ZR$(4) 1200 memmnnnanananananannaaaan 

270 TES(1)="Arquivo vazio”: TES(2)=“Campo invalido”: TES(3)="Cam 1240 "mem DISPLAY FORMATO ums 

po nao pertence 'a esta tela”: TES(4)=“Tela invalida”: TES(S)="D 1220 ummenmnnnnamnnn nen n ana 













4) Tha um 






















escricao inexistente“: TES(6)="Eu esperava um 1230 "Entras- 1 - Numero da tela a ser mostrada 

280 TES(7)="Eu esperava um operador relacional“: TES(8)="Eu espe ias as PC(), NCSC), TCC), Pt), PR(D, NMCD, PHC,), CMSC,) 

rava um string ou um numero”: TES(9)="“Eu esperava um operador lo 1250 "Destrois J e e a 
ava, us, mirins Da ua nusarors TENIS RARA UNAÍ O O O e raenniniao do iniemegsa AV. CONTORNO, 6048 - SAVASSI - BELO HORIZONTE - MG 
e! muito pequena” 4270 CLS TEL.:(031)225-0644 






1280 FOR J=PSCI) TO P2CT) 





Ea TELEX: (031) 3074 KEM - BR 
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4290 PRINT q PCCJ), NCSCJ);” 37 sSTRINGSCTECID,M Dra 

1300 NEXT J 

1940 IF NMC(I)=0 THEN 1350 

1320 FOR J=1 TO NHCI) 

1390 PRINT à PHCI,J), CHSCI,S); 

1340 NEXT 

1950 RETURN 

1360 

1370 * 

1380 MenMMa MM 

1390 "mes ROTINAS DE ACESSO «ax 

LADO Cemmmne nan 

1410 * 

1420 Pemmnmanna nana 

1430 "uam PRIMEIRA 

1440 ensmmanaana nam 

1450 “Entra? ID, FZ 

1460 "Sais NF, II, E1, E2, E3, E4, CHS, ER, CCS() 

1470 "Destroii Tí 

1480 *— =———— - 
1490 ER=1: IF NOT FZ THEN IF FIM=1 THEN RETURN ELSE NF=1: ER=0: 

Goro 2480 

4500 IF RAIZ=0 THEN RETURN 

4540 Ií=II: II=RAIZ "Aponta para o no raiz 

1520 GOSHB 2390 "Le registro 

1530 IF E1()0 THEN II=Eí3 GOTO 1520 

1540 IF E4=0 THEN 4790 

1550 NF=E4: ER=0: GOTO 2480 

1560 ommnmmmnamanam aa 

4570 "uma ULTIMA sum 

1580 emennnnnanananas 

1590 "Entra: ID, FZ 

1600 "Sais NF, II, Ef, E2, E3, E4, CHS, ER, CCSC) 

1640 'Destroii Ií 

1620 *-———— -— - 
1630 ER=12 IF NOT FZ THEN IF FIM=1 THEN RETURN ELSE NE=FIM-S: E) 
=0: GOTO 2480 

1640 IF RAIZ=0 THEN RETURN 

1650 Ii=II3 II=RAIZ 

1660 BOSUB 2390 

1670 IF E2()0 THEN II=EZ: GOTO 1660 

1680 IF E4=0 THEN 1920 

1690 NF=E4: ER=0: GOTO 2480 

1700 emma 

4710 tuas PROXIMA um 

1720 ementa 

1730 TE, FZ 

4740 Ir, É1, É2, E3, E4, CHS, ER, COSC) 

1750 KH, 

1760 - 
4770 ER=1: IF NOT FZ THEN IF NF+1)=FIM THEN RETURN ELSE NE=NE+1 
ER=0: GOTO 2480 

4780 Ií=II 

4790 IF E2()0 THEN II=E2: GOTO 1520 

1800 IA=II! II=E3: IF II=4 THEN II=I13 GOTO 2390 

1810 GOSUB 2390 

1820 IF Es=IA THEN IF E4=0 THEN 1790 ELSE NF=E4: ER=0: GOTO 2480 
ELSE 1800 

1890 Commummmmannnnnas 

1840 "uam ANTERIOR mu 

1850 eemmmnnnnnnRannnas 

1860 "Entra: II, ID, E1, E3, F7 

1870 "Sai: NF, II, És, É2, E3, E4, CHS, ER, COS) 

1880 'Destroli 14, 

1890 "- emnnnnn - 
1900 ER=1: IF NOT F7 THEN IF NF(=í THEN RETURN ELSE NF=NF-1: ER 
O: GOTO 2480 

4940 Ií=II 

1920 IF E1()0 THEN II=E1: GOTO 1460 

4930 IAsIIS II=E3s IF Il=á THEN II=Iíº GOTO 2390 

1940 GOSUB 2390 

14950 IF EZ=IA THEN IF E4=0 THEN 1920 ELSE NF=E4s ER=0: GOTO 2480 
ELSE 1930 

1960 onmnnnnnRUnanana 

1970 "mem INCLUI uu 

1980 CrenmnannRnannnas 

1990 "Entra: ID, CCS(), NF, CH, F7 

2000 "Salt II 

2010 "Destroi: FF 

2020 "= 

2030 GOSUB 2590: IF NOT FZ THEN RETURN 

2040 FF=LOF(ID)+1 

2050 IF RAIZ=0 THEN LSET ESS=MKISCFF): II=1: RAIZ=2: GOTO 2160 
2060 II=RAIZ 

2070 GOSUB 2390 

2080 IF CCS(CH)=CHS THEN IF E4=0 THEN LSET E4S=HKISCNF): PUT ID, 
TI: RETURN 

2090 ON TP(CH) GOTO 2100, 2140, 2120, 2130 

2400 IF CCS(CH) < cH THEN 2150 ELSE 2140 

21440 IF CUICCCS(CH)) « CUICCHS) THEN 2150 ELSE 2140 

2420 IF CUS(CCSC(CH)) < CUSC(CHS) THEN 2450 ELSE 2140 

2130 IF CUDCCCS(CH)) < CUDC(CHS) THEN 2150 

2440 IF E2()0 THEN II=E2: GOTO 2070 ELSE LSET E2S=MKIS(FF): GOTO 
2160 

2150 IF ES()0 THEN II=E1: GOTO 2070 ELSE LSET ELS=MKISCFF) 
2160 PUT ID,II 

2170 LSET EÍS=MKIS(O): LSET E2S=E1$: LSET EIS=MKISCIT) 

2180 LSET E4S=HKIS(NF): LSET CHS=CCS(CH): PUT ID,FF 

2490 II=FF: GOTO 2390 

2200 "eemnmnnnanannanaas 

2210 "ema PESQUISA mau 

2220 "enennnnanananaNNAR 

2230 "Entras RAIZ, ID, STS 

2240 "Sais NF, II, Eí, E2, E3, E4, ER, CCSC) 

2250 "Destroi: I1 

2260 *- - 

2270 ER=0: Ií=II: II=RAIZ 

2280 IF II=0 THEN ER=Í: II=Ií: IF II()O THEN 2990 ELSE RETURN 
2290 GosUB 2390 

2300 ON TP(CH) GOTO 2310,2320,2330,2340 

2940 IF LEFTS(CHS, LENCST$))=ST$ THEN 2350 ELSE IF LEFTS(CHS,LENC 


ST$)))STS THEN 2360 ELSE 2370 

2320 IF CUICCHS)=CVI(STS) THEN 2350 ELSE IF CVICCHS))CUICSTS) TH 
EN 2360 ELSE 2370 

2390 IF CUS(CHS)=CUS(STS) THEN 2350 ELSE IF CUSCCHS))CUSCSTS) TH 
EN 2360 ELSE 2370 

2340 IF CUD(CHS)=CUDC(STS) THEN 2350 ELSE IF CUD(CHS))CVD(STS) TH 
EN 2360 ELSE 2370 

2950 IF E4=0 THEN 2370 ELSE NF=E4: GOTO 2480 

2360 II=E1: GOTO 2280 

2370 II=E2: GOTO 2280 

2390 "umas PEGA O REGISTRO INDICE Ededadadad 

2390 GET ID, II: Es=CUI(E1S)3E2=CUI(E2$)EISCVICEIS) FE4=CVICEAS) 
2400 RETURN 

2440 umas menu 

2420 "mem LEITURA uu 

DADO Cememamennm an anas 

2440 "Entra: NA, NF 

2450 "Sais CCS(), ELO 

2460 "Destroiz I 

2470 

2400 FOR I=í TO NA 

2490 GET I,NF 

2500 NEXT 1 

2540 ELO=CUI(ELOS): IF ELO=0 THEN CCS(0)=N “ ELSE CCS(0)="5 “ 
2520 RETURN 

2590 Ceemenanmanamanana 

2540 mm ESCRITA mun 

PSS0 cemememmnmennnas 

2560 "Entra: NA, NF, CCSC), ELO 


2590 LSET ELOS=MKIS(ELO) 
2600 FOR 1I=1 TO NA 
2610 PUT 1, NF 
2620 NEXT 1 
2630 RETURN 
2640 * 
2650 * 
2660 enmuunannanaunam 
2670 tuum AVALIA mun 
2680 " een 
2690 "Entra: CMC), RL(), CTSC), LOC), TRC), CCSC) 
2700 "Sai: F3 - Resultado da avaliacao 
27140 "Destrol: 1, OPS, F4 
2720 " 
2730 1=0: Fa=0: 0P$8="+" 
2740 Fa=0 
2750 ON TPCCH(I)) GOTO 2860, 2760, 2770, 2780 
2760 VIW=CVICCOSCCM(T))): VON=CUICCTS(I))2 GOTO 2790 
2770 VAW=CUSCCCS(CHCT)))E VZH=CUSCCTSCI)): GOTO 2790 
2780 VIN=CUDCCCSCCMCT)))s UDH=CUDICTSCT)) 
2790 ON RL(I) GOTO 2800, 2840, 2820, 2830, 2840, 2850 
2800 IF VIH = V2H THEN F4=-1: GOTO 2930 ELSE 2930 
2840 IF VíM <> V2M THEN F4=-1: GOTO 2930 ELSE 2930 
2820 IF ViW € 2H THEN F4=-43 GOTO 2930 ELSE 2930 
2830 IF VíM (= UZH THEN Fé=-1: GOTO 2930 ELSE 2930 
2840 IF VIM > V2H THEN F4=-1: GOTO 2930 ELSE 2930 
2850 IF VIH »= U2H THEN Fá=-1: GOTO 2930 ELSE 2930 
2860 ON RL(I) GOTO 2870, 2880, 2890, 2900, 2940, 2920 
2870 IF CCSCCM(I)) = CTSC(I) THEN Fá=-1: GOTO 2930 ELSE 2930 
2880 IF CCSC(CH(I)) (> CTS(I) THEN F4=-1: GOTO 2930 ELSE 2930 
2890 IF CCSCCM(I)) € CTS(I) THEN F4=-1: GOTO 2930 ELSE 2930 
2900 IF CCS(CMCI)) (= CTSCI) THEN F4=-1: GOTO 2930 ELSE 2930 
2940 TF CCSCCHCI)) ) CTSCI) THEN F4=-1: GOTO 2930 ELSE 2930 
2920 IF CCSCCHCI)) )= CTSCI) THEN Fám-í 
2930 IF O0P$=".” THEN F3=(F3 AND F4) ELSE FI=(F3 OR F4) 
2940 OPS=CHRSCLOCT)) 
2950 IF OP$="F” THEN RETURN 
2960 1=1+4: GOTO 2740 
2970 CeemmannRRnnNnNNaNAS 
EXPRESSÃO mu 
e mmnnanas 
TC(), TESC) 
2, CMC, RLC), CTSC), LOC) 
"Destroii K, PL, LL, 


30: 

3040 LINE INPUT “CONDICAO = *; ECS 

3050 IF EC$="" THEN F2=0: RETURN 

3060 K=0: F2=-1: PL=4: LL=LEN(ECS) 

3070 Gosus 3350 

3080 IF ER()0 THEN GOTO 3250 

3090 CM(K)=J "Numero do campo 

3100 IF Tk$="=" THEN I=1 ELSE IF TK$="()” THEN I=2 ELSE IF Tk$=” 
€” THEN 1=3 ELSE IF Tk$="(=" THEN I=4 ELSE IF TK$=")” THEN 1=5 E 
LSE IF TK$=")=" THEN I=6 ELSE ER=7: GOTO 3250 

3110 RL(K)=I 

3420 Gosus 3580 

31430 IF TK$<)"5” THEN 3470 

3140 I=TC(CM(K)) 

3150 IF LENCSTS)<I THEN STS=STS+STRINGSCI-LENCSTS),” “) ELSE STS 
=LEFTSCSTS,I) 

3160 GOTO 3190 

3470 IF TKS<)"N” THEN ER=B: GOTO 3250 

3180 I=TP(CM(K)): IF I=2 THEN STS=MKIS(VAL(STS)) ELSE IF I=3 THE 
N STS=HKSS(VAL(STS)) ELSE STS=MKDSCVAL(STS)) 

3190 CTS(K)=STS 

3200 GoSuUB 3580 

3240 IF TK$<)".” AND TKS()7+" AND TKSC)“F” THEN ER=9EGOTO 3250 
3220 LGCKI=ASC(TKS) 

3230 IF TK$<)“F” THEN K=K+1: GOSUB 3370: GOTO 3080 

3240 RETURN 

3250 PRINT STRINGSCPL+9,” “); CHR$(94); ” ERROII! — “; TESCER) 
3260 GOTO 3040 

a270 cenmemmamamaanam 

3280 'uma CAMPO mam 

I2P0 Peemmmnumamennas 

3300 "Entra: Pá(), P2(), NCSC), ECS, PL, LL 

3340 "Sai: ER - Codigo do erro 

a320 * J — Indice do campo na tabela 

a330 

3340 
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3350 DOSUB 3970 
3360 ER=0 

3370 GOSUB 3580 

3980 IF TK$()"I” THEN ER=2: RETURN 

3390 R$=ST$ "Salva o nome do campo 

3ADO GOSUR a580 

3410 IF TKSC)"(” THEN I=1: GOTO 3490 

3420 GOSUB a580 

3430 IF TK$()/Nº THEN ER=4: RETURN 

3440 I=VALCSTS) 

34S0 IF IC1 OR IDNP THEN ER=4: RETURN 

3460 GOSUB 3580 

3470 IF TK$()7)” THEN ER=6: RETURN 

3480 GOSUB 3580 

3490 FOR J=PSCT)+CI=1) TO P2CT) 

3500 IF NCSC(J)=R$ THEN RETURN 

aStO NEXT 

3520 ER=3: RETURN 

asao * 

a540 "w 

asso temem 

3560 "Sais TK$ - Tipo do token, STS — Token 

3570 !=-—————— 

aS80 IF C$=” ” THEN GOSUB 3970: GOTO as8o 

aS90 STS=""2 Tk$="1" 

3600 IF C$()”*” THEN 3640 

3610 "mus CAMPO ENTRE PLICS 

3620 GOSUB 3970:1F C$=""” OR C&=CHR$C0) THEN GOSUB 3970: RETURN 
3630 ST$=5T8+05: GOTO 3620 

3640 IF (CSC"A” OR CS)77) AND (CSCUa” OR C5)7") THEN 3680 
3650 "uma CAMPO 

3660 ST$=5T8+C$: GOSUB 3970 

3670 IF (CSC"0” OR 082797) AND (OSCUAM OR CS)"77) AND CCSCUa” O 
0$>72") THEN RETURN ELSE 3660 

3680 IF (C$("0” OR 05797) AND CS()“-" THEN 3770 

3690 "mam NUMERO 

a700 Tk$="N” 

3740 ST$=ST4+C$: GOSUB 3970 

3720 IF C$)="D0" AND C$(="9” THEN 3710 

3790 IF C$()".” THEN RETURN 

3740 ST$=ST5+0% 

3750 GOSUB 3970: IF C$)="0" AND C$(="9" THEN 3740 

3740 RETURN 

3770 IF CSC)CHR$CI4) THEN 3840 

a780 * STRING 

3790 GOSUB 3970: IF CS=CHR$(34) OR CS=CHR$(O) THEN GOSUB 3970: T 
K$="5": RETURN 

3800 ST$=STS+C$: GOTO 3790 

3810 IF C$()"4” THEN 3860 

3820 GOSUB 3970 

3830 IF C$=")" THEN GOSUB 970: Tk$=“()": RETURN 

3840 IF C$="=" THEN GOSUB 39702 Tk$="(="2 RETURN 

aB50 TK$="(": RETURNO 

aB60 IF C$()")” THEN 3880 

3870 GOSUB 3970: IF C$="=” THEN GOSUB 39707 Tk$=")=“: RETURN ELS 
E Tk$="9": RETURN 

3880 IF CSC)CHR$C(0) THEN TK$=CS: ELSE TK$="F” 

3890 GOSUB 3 RETURN 

aP00 trema nenem 

3940 teem CARACTERE uns 

IPPO CennnmnRnanRRRn an aaa 

a9a0 “Entras ECS, PL, LL 

3940 'Sai? C$ - Proximo caractere na cadeia de entrada 
3950 "Incrementa: PL 

a940 t--— 

3970 IF PLILL THEN C$=CHR$(0): RETURN 

aPB0 CS=MIDSCECS,PL,1): PL=PL+t: RETURN 

IPPO CUNRNRNRNNRRENRN Rn nn nn nn mn mm nn 

4000 * LE DESCRICAO DA FICHA NO DISCO 

4010 * um nn nana nan nn aaa nnemenenn emana 

4020 "Sai: NP, PAC), P2C), NHC), PHC,), CH$C,), PCC), NCSC) 
4030 " TPO, TOO, DOC, FMSO 

4040 "Destrols 1, J 

4050 * 

4060 INPUT Wi, NP 

4070 FOR I=1 TO NP 

AOBO INPUT MA, PCI), P2CID, NHCI) 

AO90 IF NHCI)=0 THEN 4110 

4400 FOR J=t TO NHCIDE INPUT HÍ, PMCL,JD, CHSCI,J)E NEXT 3 
4440 NEXT 

4120 FOR I=1 TO P2CNP) 

4490 INPUT MI, POCID, NESCID, TPCID, TOCI), DECT) 

4140 IF TPCIDC)A THEN IF DOCI)C(O THEN FMSCI)=STRINOSCTOCI)-DE(I 
4, WU 4 0 ASTRINGSC(DOCI), CH”) ELSE FMSCI)=STRINGSCTOCT), CH) 
4150 NEXT 1 

4160 RETURN 

ALTO CRRRUNNENNRNENNNENENEKKNENNNNN RAR Rn nn 
AtB0 "mem ESCREVE A DESCRICAO DA FICHA NO DISCO mam 

4190 CunmnnnmmmaNaNs DRRMNRNERE RARE Ann nn 
4200 “Entra NP, PSC), P2C), NHCD, PMC,), CM$C,5, POCO, 
420 NC$C), TPO, TEC, DOC) 

4220 “Destroiz 1, 3 

4230 

4240 PRINT W1, NP 

4250 FOR I=$ TO NP 

4260 PRINT WA, PACID; P2CID; NHCI) 

4270 IF NHCTD=0 THEN 4290 

4280 FOR .J=1 TO NHCI)E PRINT W$, PHCI,J); CHR$(34); CHSCL,J); CH 
R$(34)7 NEXT 4 

AZ90 NEXT 1 

4300 FOR 1=1 TO P2(NP) 

43140 PRINT Nº, PECI); CHR$C34); NCSCI); CHR$(94)s TPCT); TCC); 
DECT) 

4320 NEXT TI 

4330 RETURN 

AIM (unnRnaREnaEna na nan nn na nn nn ne mm 

saso CRIA A DESCRICAO DOS ARQUIVOS 

4360 ue. ... numas 

aaz0 + P2O, TEC, TPO, TTO 

4380 "Sais NA, TAC, NCO 

4390 “Destroii 44 TE 
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4400 pesam 
4440 TAC1)=02 NECL)=0 
4420 “Numero de arquivos de dados usados no banco 
4430 =0 TO P2(NP) 

4440 IF TP(J)=1 THEN TC=TCCJ) ELSE TE=STICTPROS) 

s4s0 P4TO525S THEN NASNAtI: TACNA)=0: NCCNA)=0 
4450 

4470 

4480 

4490 

4500 .. 

S10 “mum ABRE OS ARQUIVOS DE DADOS mms 

ASD0 mummennnnamannanam 

4530 “Entr BC$, NA, NEC), TAC), TRC), TEC), TTC), IDS 
AS40 "Sais FIM, LU 

asso 


FOR 1=1 TO NA 

OPEN “RA, T,BCS+/DTC4CHRSCAZATI, TACT) 

TD=0 
aGi0 FOR J=1 TO NCCI) 
4Ao20 TF TP(KI=1 THEN TC=TCCK) ELSE TE=STTCTPIKOD 
4630 FIELD 1, TDX AS DUMHYS, TCX AS COSCO) 
4640 TD=TD+TE 
ASS NEXT 4 
a460 NEXT 1 
4670 FIELD 1, 2 AS ELOS 
asHo FIH=LOF(1): IF FIM=O THEN FlH=tz LU=-4 ELSE GET 4,FIME LUSO 
VICELOS) 
4490 Fá=0: RETURN 
aT0O Cemmummanmmanas emma 
a70 * ABRE O ARQUIVO DE INDICES mas 
ATOO CMNMMRRESRNNARANEANAS NAN EU RANANNUnAA 
aza0 "Entras NA, 1DS, TPO, TTO, TCO 
A74O "Sais CH, FZ, ID, RAIZ 
4750 "Destroiz T 
4760 * 
4770 e *,1D,ID$+"/10X”,8 
4780 FIELD ID, 2 AS EL$, 4 AS DUMNYS, 2 AS FAS 
4790 IF LOF(IDI=0 THEN CLOSE ID: KILL 1D$+7/1DX“z F7=03 RETURN 
4B00 GET ID,1z RAIZ=CUICES$): CH=CUI(EAS): CLOSE TD 
AB1O TF TPCCH)()S THEN I=TICTPCCH)) ELSE I=TCCCH) 
AB20 OPEN “R, ID, ID$+/10X”,8+I1 
4830 FIELD ID,2 AS E4$, 2 AS E28, 2 AS E3S, 2 AS E4$, IX AS CHS 
4840 
apso 
aB6o0 
4070 
4980 
4890 
4900 
ao 
4920 
agao 
AP40 FECHA O ARQUIVO DE INDICES 
asso CORRRRRRRCEM NEN NE anna 
4960 IF NOT F7 THEN RETURN 
4970 CLOSE ID: ID$="" 
4980 F7=0 
4990 RETURN 
so00 * 
soo * 
SO20 teemenmnaaa 
5030 max ADICIONA 
s040 cunennnanannana 
SOSO IF F7 AND 0=2 THEN ER=172 GOTO 10510 
5060 IF 0=2 AND LUC)-1 THEN NF=LU: GOSUB 2480: LU=ELO ELSE NE=FI 
ME FIM=SFIMAS 
5070 GOSUB 10870: I=1: GOSUR 500: ELO=O 
SOB0 GOSUB 2030 "Inclui no arquivo 

90 PRINT 944, “MAIS DADOS?“;2 K=956: TH=1: GOSUB 060 
5100 IF R$=75" OR R$="s5” THEN 5060 ELSE TF R$C/N” AND R$C“n” T 
HEN GOSUB 10700: GOTO 5090 
R 


teme EDITA 
enem 

5450 GOSUB 1490 "Primeira Ficha 
5160 IF ERCDO THEN 10510 
5470 I=1 
5180 GOSUB 1270 "Display formato 
5490 GOSUB 1020 "Display dados 
5200 PRINT 9944, “DIGITE COMANDO”; 91008, (7) P/SOCORRO “4 
5240 CS=INKEYS: IF C$="” THEN 5210 
5220 ON INSTR(C2$,0$)+4 GOTO 5320,5340,5390,5220,5240,5250,5660, 
5260,5280,5440,5440,5300,5300,5310,5310,5550,5550 
5230 RETURN JCENTER) 
5240 GOSUB 1490: GOTO 5170 cp) 
5250 GOSUR 1630: GOTO 5170 4/5 
5260 I=I-1: IF IXf THEN I=NP CCtrlD+cu> 
5270 Goto s180 
S280 I=I+tz IF INP THEN I=1 
5290 GoTOo S1Bo 
SgO0 IF ELO=D THEN LSET ELOS=HKISCLU)E PUT 4,NFZ LU=NF: GOSUB 24 
BO? GOTO 5470 ELSE 5210 "CA 
5930 IF ELOC)O THEN 5480 ELSE S240 CR) 

20 GOSUB 10700: GOTO 5210 "Comando invalido 
5330 * ae» FICHA ANTERIOR aum 
5340 GOSUB 1900 
5350 IF ER=O THEN 5470 
5360 GOSUB 40700: PRINT 91008,“Primeira ficha“;: FOR K=1 TO ano: 
NEXT K 
5370 GOTO 5200 
5380 * mam PROXIMA FICHA uam 
5390 GOSUB 4770 
5400 IF ER=0 THEN 5470 
S410 GOSUB 10700: PRINT 94008,“Ultima ficha 
NEXT K 
5420 Goto 5200 
5430 xx EDITA ana 


HCtrID+CZ> 


FOR K=1 TO 400: 
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5440 J=1: GOSUB 500 

5450 IF FZ THEN IF CCS(CH)<)CHS THEN LSET E4S=MKIS(O): PUT ID,II 
* GOSUB 2030 ELSE GOSUB 2590 ELSE GOSUB 2590 

5460 GOTO 5170 

5470 * mus RECUPERA uma 

5480 TÍ=ELO: LSET ELOS=MKISCO): PUT 1,NF 

5490 Jí=NF: NF=LU “Salva o numero da Ficha em Ji 

S500 IF NF=Jí THEN LU=If: GOSUB 2480: GOTO 5470 

5510 GOSUB 2480 ' 

5520 IF ELO=Jí THEN LSET ELOS=HKISCI£S): PUT 4,NF= NF=Jt: GOSUB 2 
480: GOTO 5170 

5530 NF=ELO: GOTO 5540 

5540 "uma PESQUISA ua 

5SS0 IF NOT F7 THEN ER=18: GOSUB 40510: GOTO 5470 

5560 CLS: GOSUB 1150 

5570 PRINT 9256, “CHAVE =“: K=244: TM=TC(CH): GOSUB B40 
5580 ON TP(CH) GOTO 5590,5600,5610,5620 

5590 ST$=R$: GOTO 5630 

5600 STS=MKISCVAL(RE)): GOTO 5430 

5610 STS=HKSSCVAL(R$)): GOTO 5630 

5620 STE=MKDS(VAL (R$) 

5630 GOSUB 2270: IF ER=O THEN 5470 

5640 PRINT 9512, “Nao encontrei”: FOR KX=1 TO SOD: NEXT K 
5650 GOTO 5470 

5660 CLS 2) 

5670 PRINT TAB(26);"COMANDOS": PRINT 

S6B0 PRINT TABCS);“CL> - Ficha anterior” 

5690 PRINT TAB(S);CLE) Proxima ficha” 

5700 PRINT TAB(S);"CCtrlD+cW> Tela anterior” 

S7410 PRINT TAD(S);“CCtridecz> Proxima tela” 

5720 PRINT TAB(5);“(;) Primeira ficha” 

5730 PRINT TAB(S)gUe/) Ultima ficha” 

S740 PRINT TAB(S);“CE) Edita a ficha” 

5750 PRINT TABCS);UCA) Apaga a Ficha” 

5760 PRINT TAB(S);“CR) Recupera uma ficha apagada” 
5770 PRINT TABCS);"<F> Pesquisa por campo chave” 
5780 PRINT TABC(5);“CENTER) Retorna ao menu principal” 


5790 PRINT: PRINT TAB(10); “DIGITE QUALQUER TECLA PARA RETORNAR 


: 
SB00 C&=INKEYS: IF C8="" THEN SA0O0 ELSE 5180 
SOLO Meenemmma nana nm 
5620 teus ABRE/CRIA BANCO 
5830 PRI R REL EREEEEEEo 
S840 'Salz BCS, NP, PLC), P2CO, NHCO, PMC,), CHSC,) 
seso * NA, TÃO, NEC, NES, PEO, TPO, TEC), DEC, FHSO 
5860 Ji, ECS, LL, PL 
se70 -=—=—- 
s880 IF NOT Fá THEN GOSUB 4900: PRINT 9907, 
5890 GOSUB 6710 
S900 NCS(0)="APAGADO?”: TP(O)=1: TE(D)=2s K=f 
S910 ON ERROR GOTO 5940 
5920 OPEN “1”,1,8C8+"/05C” 
5990 ON ERROR GOTO 0 
S940 GOSUB 4060 "Le descricao da ficha 
5950 GOTO 4420 
5960 RESUME 5970 
5970 ON ERROR GOTO O . 
S980 PRINT 9704,7;3 INPUT “O BANCO NAO EXISTE. QUER CRIA-LOC;ÓRS 
5990 TF R$=“Nº OR R$=“n” THEN BC$="": RETURN ELSE IF R$()75” AND 
R$C)”s” THEN 5980 
6000 CLS: PRINT: INPUT “NUMERO DE TELAS“; NP 
6040 IF NPC1 OR NP540 THEN ó000 
6020 P2(0)=0 
6030 FOR I=4 TO NP 
6040 PLCI)=PoCI-L)+4 
S050 PRINT TAB(25); “TELA Wº;T 
6060 PRINT “H CAMPO NOME, POSICAO, TIPO, TAMANHO, DECIMAIS” 
6070 FOR J=PíCI) TO 200 
S0BO PRINT USING “HWHa “3 ds 
6090 LINE INPUT ECS 
6100 IF ECS="." THEN 6450 
6410 IF EC$="7" THEN PRINT TABCLZ);UTCANCSCDAC E ”sPECID SO, TPS 
CTPCSIDD O, CP TEC IF TPCJI=1 THEN PRINTE GOTO ÓDBO ELSE PRINT 
*,"3DE(J): GOTO 4080 
6420 IF ECS()7+” THEN G160 
6130 FOR Ji=200 TO tt STEP 4 
6440 DECJL)=DCCJL-1)2 EMSCIL)=ERSCILOL)E NOSCILDENCSCIS-1)2 POC 
1)=PECJL-1)E TOCIL)=TOCIL=1)2 TPCJL)=TPCJIS-S)Z NEXT Ji 
6150 DCCJI)=0: FMSCIL)=""2 NOSCMD="0s PO(IS)=02 TOCJL)=0: TRES 
=D: GOTO 6080 
6160 IF EC$()*-" THEN 4200 
6170 FOR Ji=J TO 499 
6180 DECJL)=DOCIHLHDE FHSCILI=FNSCILHS)E NOSCILIENCSCILHS)E POCJ 
1)=PCCJLAS)E TOCILISTOCHALDE TRES D=TPCJLA) 
6190 NEXT Jiz GOTO 6150 
6200 LL=LENCECS): PL=1 
6210 IF LL=0 THEN 6440 
220 GOSUR 3970: GOSUB 3580 
6290 IF TK$CO”I” THEN 6290 ELSE NCSCJ)=STS 
6240 GOSUB 3580 
4250 IF J=P$CI) THEN 6290 
6260 FOR Ji=PÁCID+(I=1) TO J-1 
6270 IF NCSCJLI=NCSC1) THEN ER=10: GOTO 4460 
6280 NEXT J1 
6290 IF NCSCJ)="" THEN ER=25 GOTO 6460 
6300 IF TK$C)”,” THEN 6650 ELSE GOSUR 3580 
6340 TF TKS="N” THEN POCI=VAL(STS): GOSUB 3580 
6320 IF PE(JIC6A OR PC(J)DBIZ THEN ER=14: GOTO 4640 
6330 IF TKSC)",” THEN 6650 ELSE GOSUB 3580 
6340 K=INSTROSZINT, IF Kc50 THEN TP(J)=K: GOSUB 3580 
6350 IF TKEO”, ELSE GOSUB 3580 
6360 IF TKS="N” THEN TCCJ=VAL(STS): GOSUB 9580 
6370 TECICI OR TC(J))255 THEN ER=15: GOTO 4660 
4380 IF TPCJ=1 THEN 6430 
6390 IF TK$C)”,” THEN 6650 ELSE GOSUB 3580 
4400 TK$= THEN DECJ)=VAL(STE): GOSUB 3580 
6440 IF DECJ)-LITECI) OR DECJICO THEN ER=15: GOTO 6660 
6420 IF DEC(JC50 THEN FHSCI=5TRINGSCTOCD DOCS, CMD47 2 +STRI 
NGS (DOC), 2H) ELSE FHSCID=STRINGSCTE CI), CW) 
6490 IF TKSC)"F” THEN PRINT “Extra ignorado” 
AAA NEXT 


32 


8450 
6460 
Por: 
6470 
s480 
6490 
6500 
6510 
6520 
4530 
6540 
6550 
4560 
6570 
4580 

R$ 
6590 
6690 
4640 
6620 
4630 
6640 
6650 
6660 
6670 
4680 
6690 
4700 
67140 
6720 
6730 
6740 

6750 
6760 

6770 
s780 

6790 
6800 

6810 

6820 

4830 

6840 

s8so 

4860 

6870 

4880 

s890 

4900 

10 

6920 

6930 

6940 

s950 

6960 


PSC) 
IF P2CI)CPACI) THEN PRINT “A TELA DEVE TER PELO MENOS 1 CAM 
Goro 6050 
INPUT “NUMERO DE MENSAGENS NESTA TELA”; NHCT) 
IF,NMCIDCO OR NHCI))40 THEN 6470 
IF NHCI)=0 THEN 6540 
FOR J=1 TO NH(T) 
INPUT “POSICAO DA MENSAGEM”; PCI, J) 
INPUT “CONTEUDO DA MENSAGEM”; CHSCI,J) 
NEXT J 
GOSUB 1270 "MOSTRA A TELA 4 
GOSUB 1150 
PRINT 2946, “GOSTOU?” ; 
K=954: TH=1: GOSUB B60 ' 
IF R$="N” OR R$=“n” THEN CLS: GOTO 4050 ELSE IF R$()“5” AND 
»ºs” THEN 6560 
CLS: NEXT 1 
OPEN “O”, 4,8BC$+”/D5C” 
'GOSUB 4240 Grava a descricao da ficha 
CLOSE 4 
GOSUB 4410 
Goto 4570 
ER=13 
PRINT STRINGSCPL+9,” “7 CHR$(94); “ ERRO!I! — “; TESCER) 
6010 6080 
Cena na nan amu . uma 
mem LE O NOME DO BANCO mam 
CRRRRRNNRRR MR nn nn 
K=907: TM=B: GOSUB B60 
GOSUB 6830: IF ERCO THEN PRINT dk,” 
BCS=R$: RETURN 
DRRRRRENENNENENEA RR NR RR 
LE O NOME DO ARQUIVO INDICE ums 
DUNN RRR ARM 
GOSUB 860 
GOSUB 6830: IF ERCDO THEN PRINT BK, “ 
ID$S=R$: RETURN 
CRER nn nn nn nn mm 
teem CRITICA O NOME DO ARQUIVO mum 
RRRRNRRNRENRRRRE ERAM 
ER=0: IF LEN(R$)=0 THEN ER=1: RETURN 
FOR I=1 TO LENCR$S) 
CS=HIDS(R$,1,1) 
IF I=1 THEN IF CS(“A” OR C$)“2” THEN ER=1: GOTO 6880 
IF CSC"0” OR (C5)79” AND CSC“A”) OR C$)“Z” THEN Ek=i 
NEXT 
RETURN 
wunsen " eennenn nana naa 
* MODIFICAR DESCRICAO DO BANCO 
MR RRIRRRRRMERRRRM 
IF Fé THEN ER=12: GOTO 10510 
CLS: GOSUB 1150 
PRINT 9278, “mam ATENCAO aum” 
PRINT TAB(5);”A MODIFICACAO DA DESCRICAO DO BANCO DE DADOS 


"Cria a descricao dos arquivos 
"Abre os arquivos e retorna 


“;3 GOTO 6740 


“2 GOTO 6770 


APAGA” 


s970 
s980 


PRINT TAB(S)“TODOS OS DADOS GRAVADOS. ”: PRINT 
R$=“"3 PRINT TAB(15);3 INPUT “CONFIRME A SUA DESCISAO (S/N) 


“4 R$ 


4990 


IF R$="N” OR R$="n” THEN RETURN ELSE IF R$()75” AND R$C)"8” 


THEN 6980 


7000 
7010 
7020 
7030 
7040 
7050 
7060 


GOSUB 7080: BCS=R$ 

GoTO 4000 
CRRRERNERENER RE nn nan 
tmum APAGAR O BANCO DE DADOS mam 
” ia DECEEEETETIEE 
IF Fé THEN ER=12: GOTO 10510 


PRINT 640,5: INPUT “APAGAR O BANCO DE DADOS??? CONFIRME. 


(S/N)”4 R$ 


zozo 


IF R$="Nº OR R$=“n” THEN RETURN ELSE IF R$()"5” AND R$()'s” 


THEN 7060 


7080 
zovo 
7100 
7440 
7120 
7430 
71440 
7150 
7160 
7470 
7180 
7190 
7200 
7240 
7220 
7230 
7240 
7250 
7260 
7270 


R$=BCS 

GOSUB 4900 

ON ERROR GOTO 7170 

KILL R$+7/D5C” 

FOR I=1 TO NA 

KILL R$+/DT”+CHRS(47+T) 

NEXT T 

ON ERROR GOTO O 

RETURN 

RESUME NEXT 

mena ” 

teem DESCRICAO DA IMPRESSAO uam 

RR NRER RERUM 

FM=NA+13 FS=0: CLS: GOSUB 1150 

PRINT 9192, “ARQUIVO DE FORMATO = “ 

K=213: TM=B: GOSUB 860: GOSUB 6830: IF ER(>O THEN PRINT dk, 
“sz GOTO 7230 ELSE FMS=R$ 

ON ERROR GOTO 7300 

OPEN “12, FM,FMS+/EMT” 

ON ERROR GOTO O 

PRINT 9256, “ESTE ARQUIVO JA EXISTE.“: INPUT “DESEJA REDEFI 


NI-LO? (S/N)”; R$ 


7280 
7290 
7300 
7310 
7320 
7330 
7380 
7350 
7360 
7370 
7380 
7390 
7400 
7410 
7420 
7430 
7440 
7450 
7460 


IF R$=“Nº THEN RETURN ELSE IF R$()“8” THEN 7270 

CLOSE WFM: GOTO 7320 

RESUME 7340 

ON ERROR GOTO D 

GOSUB 10780 "APAGA 

GOSUB 7450 "IMPRESSORA 

GOSUB 7600 "RELATORIO 

GOSUB 9730 'CALCULA N7 e NB 

IF ER THEN 7330 

OPEN “0”, FM, FHS+"/EMT” 

Gosus 10210 

CLOSE WFM 

RETURN 

CREREERER RENNES 

mes ROTINAS DE LEITURA DE DESCRICOES uu 

"mm nemnnnnnnaaa nennnmananaas 
LE DESCRICAO DA IMPRESSORA 

CLS: PRINT: PRINT “DESCRICAO DA IMPRESSORA” 

IF FS THEN PRINT “NUMERO DE COLUNAS=": CO 





MICRO SISTEMAS, fevereiro/85 


7470 INPUT “NUMERO DE COLUNAS”; CO 

7480 IF FS THEN PRINT “NUMERO DE LINHAS="; LI 

7490 INPUT “NUMERO DE LINHAS”; LI 

7500 IF FS THEN IF LEN(S4$) THEN PRINT “SEQUENCIA INICIAL=";: FO 

R I=í TO LEN(S1$): PRINT ASCC(MIDS(S1S,I,1))57,“73 NEXT [3 PRINT 

7540 PRINT “SEQUENCIA INICIAL” 

7520 GOSUB 8410 

7530 S1$=5$ 

7540 IF FS THEN IF LEN(S2$) THEN PRINT “SEQUENCIA FINAL=";: FOR 

I=í TO LEN(S25): PRINT ASC(MIDS(S2S,1,1))57,/73 NEXT 13 PRINT 

7550 PRINT “SEQUENCIA FINAL” 

7560 GOSUB 8410 

7570 S28=58 

7580 RETURN 

7590 "aum LE DESCRICAO DO RELATORIO 

7600 CLS: PRINT: PRINT “DESCRICAO DO RELATORIO” 

7640 GOSUB 7670 "CABECALHO 

7620 GOSUB 7900 "DETALHE 

7630 GOSUB B200 "RODAPE * 

7640 RETURN 

7650 *uuw LE DESCRICAO DO CABECALHO 

7660 CLS: PRINT 

7670 PRINT “Cabecalho” 

7580 IF FS THEN PRINT “NUMERO DE LINHAS NO CABECALHO=", N4 

7690 INPUT “NUMERO DE LINHAS NO CABECALHO”; N4 

7700 IF NA£O OR N4)10 THEN 7690 

7740 IF N4=0 THEN RETURN 

7720 FOR Ji=t TO Ná 

7730 PRINT “LINHA”; Jt 

7740 IF FS THEN PRINT “TABULACAO="; TAC) 

7750 INPUT “TABULACAO”; T4(J1) 

7760 IF F5 THEN PRINT “CONTEUDO="; LAS(J1) 

7770 INPUT “CONTEUDO”; L4S( JL) 

7780 NEXT J1 

7790 R$=""2 INPUT “IMPRIMIR CONTADOR DE PAGINAS NO CABECALHO”;R$ 
7800 IF R$=“N” THEN Ni=D: GOTO 7870 ELSE IF R$()"S” THEN 7790 
7840 IF FS THEN PRINT “NUMERO DA LINHA DO CONTADOR="; Nº 

7820 INPUT “NUMERO DA LINHA DO CONTADOR”; Ní 

7830 IF Níci OR NÍ>N4 THEN 7820 

7840 IF FS THEN PRINT “NUMERO DA COLUNA DO CONTADOR="; Cí 
7850 INPUT “NUMERO DA COLUNA DO CONTADOR”; Cí 

7860 .IF Ci+11)TA(N1) THEN IF CACTACNID+LENCLASCNÍ)) THEN 7650 
7870 RETURN 

7880 "wu» LE DESCRICAO DO DETALHE 

7890 CLS: PRINT 

7900 PRINT “Detalhe” 

7940 IF FS THEN PRINT “NUMERO DE COLUNAS DE DETALHE="; NS 
7920 INPUT “NUMERO DE COLUNAS DE DETALHE”; NS 

7930 IF NSc<1 OR N5)SO THEN 7920 

7940 N9=1 

7950 FOR Jt=1 TO NS 

7960 PRINT “COLUNA”; Ji 

7970 IF FS THEN PRINT “TABULACAO="; TS(J1) 

7980 INPUT “TABULACAO”; TS(JL) 

7990 IF Ji=1 THEN 8010 

BOOO IF TS(JL)CTSCJL-1)+TCCCS(JL-1)) THEN N9=N9+1: PRINT “CADA F 
ICHA SERA* IMPRESSA EM”; N9; “LINHAS” 

8010 FOR K=1 TO NP 

8020 IF CS(J1))=PLCK) AND C5(J1)C=P2(K) THEN 8040 

B030 NEXT kK 

BO4O ECS=" ""+NCSCCSCUL)D4 CU ASTRECKI 6 

BOSO IF FS THEN PRINT ECS 

BO60 LINE INPUT “CAMPO (TELA) = “; ECS 

B070 LL=LENCECS): PL=1 

8080 IF LL=0 THEN 8430 

B090 GOSUB 3350 

B100 IF ER()5O THEN PRINT “ERRO!!! — “; TESCER): GOTO BN60 
BL40 IF TKSC)"F” THEN PRINT “Extra ignorado” 

8120 C5(Jí)=3 

B130 NEXT Ji 

8140 IF FS THEN PRINT “NUMERO DE LINHAS DE SEPARACAO="; N3 
B150 INPUT “NUMERO DE LINHAS DE SEPARACAO”; N3 

8140 IF NICO THEN 8150 

B170 RETURN 

B180 "mem LE DESCRICAO DO RODAPE * 

B190 CLS: PRINT 

B200 PRINT “Rodape '” 

82410 IF FS THEN PRINT “NUMERO DE LINHAS DE RODAPE '="; Nó 
B220 INPUT “NUMERO DE LINHAS DE RODAPE*”; Nó 

8230 IF Nó(0 OR N6)140 THEN 8220 

B240 IF N6=0 THEN RETURN 

B250 FOR Ji=í TO Nó 

8260 PRINT “LINHA”; 1 

8270 IF FS THEN PRINT “TABULACAO=”; T6(JL) 

B280 INPUT “TABULACAO”; Tó(J1) 

8290 IF F5 THEN PRINT “CONTEUDO="; L6S(J1) 

8300 INPUT “CONTEUDO”; L6S( JL) 

8310 NEXT Ji 

8320 R$="": INPUT “IMPRIMIR CONTADOR DE PAGINAS NO RODAPE "“; R$ 
8330 IF R$="N” THEN N2=0: GOTO B400 ELSE IF R$()“5” THEN 8320 
B340 IF FS THEN PRINT “NUMERO DA LINHA DO CONTADOR="; N2 
B350 INPUT “NUMERO DA LINHA DO CONTADOR”; N2 

8360 IF N2(1 OR N2)N6 THEN 8350 

8370 IF FS THEN PRINT “NUMERO DA COLUNA DO CONTADOR="; C2 
8380 INPUT “NUMERO DA COLUNA DO CONTADOR”; C2 

8390 IF C2+11)Tó(N2) THEN IF C2(TOCND)+LENCLOSCND)) THEN B380 
8400 RETURN 

B410 Ji=iz 58="" 

8420 PRINT Jíys C=0 

8430 INPUT C 

B440 IF C=0 THEN B4B0 ELSE IF C(O OR C)255 THEN 8420 

B450 S$=5S+CHR$(C) 

BA460 Ji=Ji+1t 

B470 GOTO 8420 

8480 RETURN 

BAGO Comemamuma nn nn 

BSO0 'mmm IMPRIMIR mam 

BS1D Cenemenma nn n nana 

B520 GOSUB 1490: IF ERC(>D THEN 10510 

8530 FH=NA+1: CLS: GOSUB 1150 

B540 PRINT 9192, “ARQUIVO DE FORMATO =“: K=213: TM=8: GOSUB B60: 
GOSUB 6830: IF ER(>O THEN PRINT ak, “ “3 GOTO 8540 
8550 TE R$=FMS THEN B610 ELSE FHS=RS 


MICRO SISTEMAS, fevereiro/85 


B560 ON ERROR GOTO B960 

8570 OPEN “I”, FM, FMS+”/FMT” 

B580 ON ERROR GOTO O 

8590 GOSUB 9890 

B600 CLOSE WFM 

8610 PG=0: Fi=0: F3=-1 

8620 PRINT 3320,;: GOSUB 3040 

8630 PRINT “POSICIONE O PAPEL” 

B640 LINE INPUT “DIGITE (ENTER) PARA CONTINUAR”; R$ 

B650 LPRINT S1i$; 

B660 PG=PG+1 

8670 IF N4=0 THEN 8730 

B680 FOR Jí=1 TO N4 

B690 IF Ní=Jí AND CíCTACIL) THEN LPRINT TAB(C1);: LPRINT USING “ 

PAGINA NNHT; PG; 

B700 LPRINT TABCTAC(JL)); LASCJL); 

8740 IF Ná=Ji AND Cí)T4(J1) THEN LPRINT TABCC4);3 LPRINT USING “ 

PAGINA WWH”; PG ELSE LPRINT 

8720 NEXT Jí 

8730 FOR Ji=í TO N7 

8740 IF F4 THEN LPRINT STRINGS(N9-1,13);: GOTO BB40 

B7S0 IF F2 THEN GOSUB 2730: IF F3 THEN 8780 ELSE ELSE 8780 

8760 GOSUB 14770: IF ER(>O THEN Fi=-1 

8770 GOTO 8740 

B780 FOR J2=1 TO NS | 

8790 IF J2<)14 THEN IF TSCJZ)<TS(J2-1)+TO(CS(J2-1)) THEN LPRINT 

BB00 LPRINT TABCTS(.J2))53 J=05(J2): K=TPCJ) 

8840 IF K=1 THEN LPRINT CC$(J)y ELSE IF K=2 THEN LPRINT USING FM 

$(J); CUICCCS(J)); ELSE IF K=3 THEN LPRINT USING FMS(J); CUSCCCS 
(1)); ELSE LPRINT USING FMS(J); CUDICCS( JD) 

8820 NEXT J2 

8830 GOSUB 14770: IF ER(5O THEN Fi=-1 

BB40 IF Ji=N7 THEN LPRINT ELSE LPRINT STRINGSC(N3,13) 

BBS0 NEXT J1 

8860 LPRINT STRINGS(NB,13); 

8870 IF N6=0 THEN 8930 

BB80 FOR Ji=1 TO Nó 

B890 IF N2=J1 AND C2<Té( Ji) THEN LPRINT TAB(C2);3 LPRINT USING “ 

PAGINA NHH”; PO; 

B900 LPRINT TABCT6CJL)); L6SCIL)s 

B940 IF N2=Jí AND C2)Té( Ji) THEN LPRINT TAB(C2);3 LPRINT USING 

PAGINA WWH”; PG ELSE LPRINT 

8920 NEXT Ji 

B930 IF NOT Fi THEN B660 

B940 LPRINT 525; 

B9S0 RETURN 

B960 RESUME 8970 

B970 ON ERROR GOTO O 

B9B0 ER=5: GOTO 10510 

BPP0O CeNTRNRENERaRREan a nn nn nn nn en nn 

9000 "umm APAGA O ARQUIVO DE FORMATO mam 

POLO CemnRnRNnEna Rana nn nn nn nn en nm 

9020 PRINT 9704, “ARQUIVO DE FORMATO ="; 

9090 K=726t TM=8: GOSUB 860 

9040 GOSUB 6830: IF ER()O THEN 9030 

9050 ON ERROR GOTO 9090 

9060 KILL R$+7/FMT” 

9070 ON ERROR GOTO O 

9080 RETURN 

9090 RESUME NEXT 

P10O CeRTRNRRNEEREn nn nn nn nn nn nn nn nn 

9110 "mus ABRE UM ARQUIVO DE INDICES ums 

9120 "ums MUNNRNNNNAMRNRR 

9130 IF FZ THEN GOSUB 4960: PRINT 9971,” “y 

9140 GOSUB 6770 

9150 GOSUB 4770: IF NOT FZ THEN ER=19: GOSUB 40540: PRINT 9971,” 

a 1DGum 

9140 

9170 

9180 

s190 

9200 IF ID<>0 THEN 

9210 ID=NA+2 

9220 GOSUB 6770 

9230 CLS: GOSUB 1450 

9240 ON ERROR GOTO 9460 

9250 KILL 1D$+"/1Dx” 

9260 ON ERROR GOTO O 

9270 PRINT 9256,5: LINE INPUT “CAMPO CHAVE = “; ECS 

9280 IF EC$="” THEN 9270 

9290 PL=1t LL=LEN(ECS): GOSUB 3350 

9300 IF ER(30 THEN PRINT “ERRO!!! - “;TESCER): GOTO 9270 

9340 CH=J: IF TPCCH)C)1 THEN I=TTCTPCCH)) ELSE I=TC(CH) 

9320 IF 1)248 THEN PRINT TES(2): BOTO 9270 

9330 ON ERROR GOTO 9470 

9340 OPEN “R”, ID, ID$S+“/1DX”,1+8 

9350 ON ERROR GOTO O 

9360 FIELD ID, 2 AS E1$, 2 AS E2$, 2 AS E3$, 2 AS EMS, IX AS CHS 

9370 LSET ELSSMKIS(O): [SET E2S=EÍS: LSET E3S=E28: LSET E4S=MKIS 
<CHy 

9380 PUT 10,1: RAIZ=0 

9390 GOSUB 3040 "Le a condicao para que um registro possa ser | 
ndexado 

9400 NF=1 

9410 IF NF)=FIM THEN F7=-1: RETURN 
9420 GOSUB 2480 "Le a ficha 
9430 IF F2 THEN GOSUB 2730: IF NOT F3 THEN 9450 

9440 GOSUB 2040 "Inclui no arquivo de indices 

9450 NF=NF+1: GOTO 9410 

9460 RESUME NEXT 

9470 RESUME 9480 

9480 ON ERROR GOTO O 

9490 PRINT “ERRO!!! — ";TESC16) 

7500 GOTO 9270 

GS1O RENNRNRRRNCRENEEEn En nn nn nen nm nm 

9520 m APAGA UM ARQUIVO DE INDICES um 

PEITO CMRNNNNNNANNNANKNANANANNNKAANANNAAAAR 

9540 PRINT 9971,” “y3 K=971: TM=B: GOSUB B60: GOSUB 68301 
IF ER<>O THEN 9540 

9550 IF R$=ID$ THEN GOSUB 4960 

9560 ON ERROR GOTO 9600 

9570 KILL R$+7/1Dx” 

9580 ON ERROR GOTO O 


"Fim da indexacao 





UM GE 


9590 
9600 
7610 
9620 
9630 
9640 
9650 
97460 
9670 
9480 
9690 
9700 
9710 
9720 
9730 
9740 
9750 
9760 
9770 
9780 
ER=0 
9790 
9800 
vero 
9820 
9830 
9840 
9850 
7860 
9870 
9880 
9890 
9900 
9910 
9920 
9930 
9940 
9950 
9960 
9970 
9980 
9990 
10000 


RENTE PRÁTICO EM BANCO DE DADOS 


RETURN 
RESUME NEXT 
Cena nenem 
eme FIM us 
ETR E LER EE 
IF NOT Fé THEN GOSUB 4900 "Fecha arquivos 
CMD“BREAK,Y”3 END 
CR 
teme CALCULA mm 
TT I TIE 
"Entra: LI, N4, Nó, N3, N9 
"Sais N7, NB 
'Destroi! ER, K 


N7=LI-N4-N6 

K=N7=N9 

K=INT(K/(NI4N9I) 

NB=N7-Kw (NI+N9)-N9 

N7=K+1 

IF N7(1 THEN ER=1t: PRINT 9768,“ERROII! — “; TES(ER); ELSE 


RETURN 

CRRNNRN RENNES 

tmem LE DESCRICAO DA IMPRESSAO DO DISCO mm 

MR nn DERRETE ET EEEEEo 

"Entrar FM 

"Sais CO, LI, S1$, 528, N4, TAC), L4SC), Nº, CL, NS, TSC), 
5 CS), N3, N7, NB, N9, Nó, Tó(), LóSc), N2, C2 
"Destrois Ji 


'mnm IMPRESSORA mam 

INPUT 4FM, CO, LI, S1$, S25 

me» RELATORIO mum 
Cabecalho 

INPUT NFM, N4 

IF N4=0 THEN 9970 

FOR Jí=1 TO N4 

INPUT MEM, TACJL), LASCIL) 

NEXT Jí 

INPUT HFM, N$, Ct 

*mem Detalhe 

INPUT WHFM, NS 

FOR Ji=í TO NS 


10010 INPUT MFM, TS(JL), CS(J1) 


10020 
10030 
10040 
10050 
10060 
10070 
10080 
10090 
t0400 
104140 
10120 
10130 
10140 
10150 
10160 
10470 
10180 
10190 
10200 
10210 
CHR$S 
10220 
10230 
10240 
10250 
10260 
10270 
10280 
10290 
10300 
10340 
10320 
10330 
10340 
10350 
10360 
10370 
10380 
10390 
10400 
10410 
10420 
10430 
10440 
410450 
10460 
10470 
10480 
10490 
10500 
10510 
10520 
10530 
10540 
10550 
10560 
10570 
10580 
10590 
10400 
10610 
10620 
10630 
10640 
10650 
10660 
40470 
10480 


NEXT 4 
INPUT MEM, N3, N7, NB, N9 

“mem Rodape” 

INPUT WFM, Nó 

IF Né=0 THEN 10100 

FOR Ji=1 TO Nó 

INPUT MEM, TóCJL7, LóSCIL) 

NEXT Já 

INPUT MFM, N2, C2 

cem FIM mun 

RETURN 

CRMDRRNNNRN NNE 

teem GRAVA DESCRICAO DA IMPRESSAO NO DISCO mem 

UNR RRRNER RR Rn Rn nn nm mmum 

"Entrar FM, CO, LI, 545, 525, N4, TAC), LASC), Ná, C4, NS 
, TS) ,C5(), N3, N7, NB, N9, Nó, Tó(),LGSC), N2, Co 
*Destrois Já 

"mem IMPRESSORA mam 

PRINT NFM, CO; LI; CHR$(34); 518; CHR$(34); CHR$(34); 5254 
(34) 

mem RELATORIO mem 

"ae Cabecalho 

PRINT HFM, N4 

IF N4=0 THEN 10290 

FOR Ji=1 TO N4 

PRINT MFM, TACJL); CHRS(34); L4SCJL) CHRSC34) 

NEXT Já 

PRINT MFM, Niy Cá 

max Detalhe 

PRINT WFM, NS 

FOR Ji=í TO NS 

PRINT MFM, TSC(JL), CS(U1) 

NEXT Já 

PRINT MEM, NI; N7; NB; N9 

me» Roda 
PRINT WFM, Nó 

IF Nó=0 THEN 10420 

FOR Ji=1 TO Nó 

PRINT NEM, Tó(J1); CHR$C34); L6SCJL); CHRS(I4) 
NEXT Jí 

PRINT WFM, N2, C2 
ee FIM mam 
RETURN 
en 
mem ERROS mus 
Cen nn nm nn 
"Entra: ER, TESO 
'Destroi: K 





PRINT 0768, “ERROLI! - “; TESCER); 
FOR K=1 TO 800: NEXT K 
RETURN 








"Entra: ER, TES) 
'Destrois K 
PRINT 9768, “ERRO!!! - “; TESCER); 
FOR K=í TO BOO: NEXT K 

PRINT 9768, STRINGS(64,32); 

RETURN 

em 

rem SOM mam 

een mana 

"Entra: SOMS, PT 

'Destroiz EDI 





EDI=PEEK(PT+1)+PEEK(PT+2)n256 

IF ED!)32767 THEN EDI=ED!-65536 

DEFUSRO=ED| 

ED!=USRO(O) 

RETURN 

EEE 

teem APAGAZ uam 

otite dotado ado] 

CO=0: LI=0: S1$="": S28="": N4=0: N2=0: N3=0: Ci=0: C2=0 
FOR I=1 TO 40 

T4(I)=03 TS(I)=0: TS(1+40)=0: CS(I)=0: CS(1+10)=0: TótI)=0 
LASCID=""3 L6SCTD="" 

NEXT 1 

RETURN 

Conan nn nm 

tum APAGA amu 

em nn a 

FOR J=í TO P2(NP) 

LSET CCSCJ)=TRSCTP(J)) 

NEXT 4 


um 
w» MENUS uu 

nn mm 

CLS: GOSUB 1150 

PRINT 9453,"MENU PRINCIPAL”: PRINT 

PRINT TAB(Í0);"1t — ABRIR/CRIAR/MODIFICAR/APAGAR BANCOS” 

PRINT TAB(10);"2 — INSERIR/MODIFICAR/APAGAR/PROCURAR DADOS 


PRINT TAB(10);“3 — INDEXAR/DESINDEXAR DADOS” 

PRINT TAB(Í0);“4 — CRIAR/MODIFICAR/EXECUTAR RELATORIOS” 
PRINT TAB(10);“5 — FIM” 

PRINT 9944,“0PCAO?”;3 K=951: TM=1: GOSUB B60: O=VAL(R$) 
IF Oc1 OR 0)5 THEN 41030 

IF F6 THEN IF 0()1 AND 0()5 THEN ER=12: GOSUB 10400: GOTO 


ON O GOSUB 11080, 11190, 11290, 11400, 9640 
Goro 10960 

CLS: GOSUB 1150 

PRINT 9150,“MENU SECUNDARIO - 14: PRINT 

PRINT TAB(15);”1 - ABRIR/CRIAR UM BANCO DE DADOS” 

PRINT TAB(15);”2 - MODIFICAR A DESCRICAO DO BANCO” 
PRINT TAB(15);"3 — APAGAR O BANCO DE DADOS” 

PRINT TAB(15);“4 — FECHAR O BANCO DE DADOS” 

PRINT TAB(15),"5 - RETORNAR AO MENU PRINCIPAL” 

PRINT a944,"0PCAO?";3 K=951: TM=1: GOSUB 860: O=VAL(RS) 
IF O(D OR 0)5 THEN 11150 

IF 0=5 OR 0=0 THEN RETURN ELSE ON O GOSUB 5B80,6930,7050, 4 


Goro 11080 

CLS: GOSUB 1150 

PRINT 9150,“MENU SECUNDARIO - 2%: PRINT 

PRINT TAB(15);“1 - INSERIR DADOS” 

PRINT TAB(15);“2 - INSERIR SOBRE FICHAS APAGADAS” 

PRINT TAB(15);"3 - LOCALIZAR/DELETAR/MODIFICAR DADOS” 
PRINT TAB(15);"4 - RETORNAR AO MENU PRINCIPAL” 

PRINT 9944,"0PCAO7";3 K=9513 TM=13 GOSUB B60: O=VAL(RS$) 
IF OCO OR 0)4 THEN 11250 

IF 0=4 OR O=0 THEN RETURN ELSE ON O GOSUB 5060,5050,5150 
Goro 11190 

CLS: GOSUB 1150 

PRINT 9150,“MENU SECUNDARIO - 37: PRINT 

PRINT TAB(Í5);”1 — ABRIR UM ARQUIVO DE INDICES” 

PRINT TAB(15),"2 - FECHAR O ARQUIVO DE INDICES” 

PRINT TAB(15)9"3 — CRIAR UM ARQUIVO DE INDICES” 

PRINT TAB(15);74 - APAGAR UM ARQUIVO DE INDICES” 

PRINT TAB(15)5"5 - RETORNAR AO MENU PRINCIPAL” 

PRINT 9944,"0PCAO?”;1 K=951: TM=1: GOSUB 860: O=VAL(RS) 
IF O(O OR 0)5 THEN 11360 

IF 0=5 OR 0=0 THEN RETURN ELSE ON O GOSUB 9130,4960,9200,9 


Goro 11290 

CLS: GOSUB 1150 

PRINT 9150,“MENU SECUNDÁRIO - 4: PRINT 

PRINT TAB(15)5“1 - CRIAR DESCRICAO DE RELATORIO” 
PRINT TAB(15);“2 - MODIFICAR DESCRICAO DE RELATORIO” 
PRINT TAB(15);"3 — APAGAR DESCRICAO DE RELATORIO” 
PRINT TAB(15);74 — IMPRIMIR” 

PRINT TAB(45),"5 - RETORNAR AQ MENU PRINCIPAL” 

PRINT 99744,“0PCAO?”;3 K=951: TM=1: GOSUB B60: O=VALCR 
IF O£O OR 0)5 THEN 11470 

IF 0=5 OR 0=0 THEN RETURN ELSE ON O GOSUB 7240,11510,9020, 





GoTO 11400 

FM=NA+1z CLS: GOSUB 1150 

PRINT 9192, “ARQUIVO DE FORMATO =” 

K=213: TM=B: GOSUB 860: GOSUB 6830: IF ER(3O THEN PRINT dk 
”: GOTO 114530 

IF R$=FMS THEN 11600 ELSE FMS=R$ 

ON ERROR GOTO 8960 

OPEN “1”, FM, FMS+“/EMTO 

ON ERROR GOTO O 

GosuB 9890 

CLOSE FM 

PRINT: R$=“": INPUT “IMPRIMIR OS VALORES ANTERIORES”; R$ 

IF R$="5” THEN F5S=-1 ELSE IF R$()“N” THEN 11600 ELSE F5=0 

CLS: GOSUB 11450: PRINT 9153, “ITENS A MODIFICAR”: PRINT 

PRINT TAB(45);”1 — CARACTERISTICAS DA IMPRESSORA” 

PRINT TAB(15);“2 — CARACTERISTICAS DO CABECALHO” 

PRINT TAB(15);"3 — CARACTERISTICAS DO DETALHE” 

PRINT TAB(15);"4 - CARACTERISTICAS DO RODAPE *” 

PRINT TAB(45);”S — RETORNA AO MENU SECUNDARIO” 

PRINT 9944, “OPCAO; K=951: TM=1: GOSUB B60: O=VAL(R$) 

IF 0=5 OR 0=0 THEN 11720 ELSE IF O(1 OR 034 THEN 11680 

ON O GOSUB 7450, 7660, 7890, 8190 

GoTO 11620 

GOSUB 9730 "CALCULA 

IF ER THEN FOR K=í TO 800: NEXT K: GOTO 11620 

OPEN “0”, FM, FMS+"/FMT” 

GOSUB 10210: CLOSE WFH: RETURN 
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Aparentemente estes dois cabos 
o iguais. 
Olhe bem e tente descobrir as 








Solução: 

1-0 cabo de cima é AUDIOFLEX. Ele 
tem continuidade de características 
elétricas ao longo de toda linha, 
porque é fabricado com o melhor 
equipamento e sua qualidade é 
controlada em toda linha de 
fabricação, 

2-0 cabo de cima é AUDIOFLEX. Ele 
é fabricado com cobre eletrolítico 
novo e polietileno novo - nada de 
matéria-prima recuperada, 

3-0 cabo de cima é AUDIOFLEX 
Sua montagem é rápida e fácil, 
devido às diversificações de tipos e 
cortes bobinados no comprimento 
exato 

4-0 cabo de cima é AUDIOFLEX. Ele 
passa pelo mais avançado controle 
de qualidade 


DP 


5-0 cabo de cima é AUDIOFLEX. Ele 
é fabricado por uma empresa que 
só fabrica cabos especiais 

6-0 cabo de cima é AUDIOFLEX. Ele 
é feito com a mais alta tecnologia. 

7-0 cabo de cima é AUDIOFLEX. Ele 
é fabricado em mais de 18 tipos 
diferentes. 

8-0 cabo de cima é AUDIOFLEX. A 
empresa que o fabrica tem um 
Departamento de Engenharia 
preparado para indicar qual o 
melhor tipo para seu caso. 

9-0 cabo de cima é AUDIOFLEX. Ele 
é fabricado em vários tipos de 
bitolas e blindagens. 

10 - O cabo de cima é AUDIOFLEX. Ele 
é fabricado com vários tipos de 
condutores internos. 


Agora, se você está pensando que 

descobriu as diferenças. você errou, 
porque o de baixo também é KMP 
e a KMP tem a mais alta tecnologi: 
em cabos especi 











AUDIOFLEX 





Cabos Especiais e Sistemas Ltda. 
BR 116/km 25. - Cx. Postal 146 - 06800 
Embú SP - Tel. 011/494-2433 Pabx - Telex 
011/33234 KMPL - BR - Telegramas Prreicabie 


Qualquer dúvida chame nosso Departamento de Engenharia de Marketing 





Enxadrista experiente, Luciano Nilo de An- 
drade já escreveu para os jornais “Correio da 
Manhã”, “Data News” e “Ultima Hora” e pa- 
ra a revista “Fatos & Fotos”. Luciano é econo- 
mista, trabalhando no Ministério da Fazenda, 






no Rio de Janeiro. As opiniões e comentários 
de Luciano Nilo de Andrade, bem como as 
últimas novidades do Xadrez jogado por com- 


pútadores, estarão sempre presentes em 
MICRO SISTEMAS. 











As façanhas de um recordista 


ficiente levaram à derrota Vlasti- 

mil Hort, GMI checo, ao enfrentar 
o micro Prestige, da Fidelity, numa si- 
multânea realizada em Colônia, na Ale- 
manha Ocidental, em 5 de outubro 
último. 

Pródigo na entrega do material para 
mobilizar suas peças com rapidez, Hort 
só não conseguiu seu desiderato porque. 
no momento azado, na jogada 19, não 
desfechou um golpe mortal no adver- 
sário. Posteriormente, depois de perder 
várias oportunidades de lutar pelo em- 
pate, acabou precipitando o fim com 
uma capivarada de feição clássica. 

Entretanto, foi o próprio Vlastimil 
Hort quem estabeleceu, no dia 6 de 
outubro último, novo recorde mundial 
de simultâneas, ao jogar contra 575 jo- 
gadores em 663 tabuleiros. Durante esta 
maratona enxadrística, Hort perdeu três 
quilos e andou cerca de 45 quilômetros 
em torno das mesas. 

O recordista anterior era o alemão 
Karl Podzielny, contra 300 adversários 
em 575 partidas. 


E xcesso de confiança e tempo insu- 


V. Hort x Prestige 
Abertura do Peão Dama 
Simultânea, Colônia, 1984 


1 — P4D C3BR;2 — BSC CSR;3 — B4B 
P4D; 4 — P3B C3BR; 5 — P4R PxP; 
6 — C3B C4D!?,7 — CxC DxC;8 — P4B 
D4TD+;9 — B2D D4B; 10 — PxP DxP; 
nm B2R DST+; 12 — P3CR DxP; 





4 





13 — C3B DxPC; 14 — TIC DxPT; 
15 — B3B D3T!; 16 — 0-0 B6T; 17 — 
T2B B4B, 18 — PSB D6T. Veja o diagra- 
ma A. Posição depois de 18-PSB D6T. 
Agora as brancas poderiam ganhar com 
19 — TxP DxB; 20 — BSC+C2D; 21 — 
TxPB TID; 22 — T2D. 19 — B4€(?) as 
brancas deixam escapar a oportunidade 
de coroar com sucesso uma inspirada 





E Diagrama A 


 MAxa 





abertura. 19 — ...D6R; 20 — T3C DSR; 
21 — CSC D4R;22 — CxPB! RxC;23 — 
TxB+ DxT; 24 — T3B DxT;25 — B4B+ 
RIR; 26 — DxD C3B;27 — B7B+ R2D; 
28 — DSB+ RID; 29 — B3B (?) com 29 
DSD+ RIB 30 B6R+ RIC 31 D7D e as 
pretas teriam dificuldade em reagrupar 
suas peças na defesa do seu monarca. 29 
— .P4R! D3D; 30 — D3D+ R1B;31 — 
DSD B2R; 32 — R2C TID as pretas já 
saíram da imobilidade em que estavam, 
para começar a disputar a iniciativa. 33 — 
D4B B3B;34 — D4R CSD;35 — BSD(?) 
P3B!, 36 — B4B P3TR; 37 — D6C 
P4CD; 38 — B3D P4TD;39 — P4T PST, 
40 — P4C C6C;, 41 — BSB+ R2C;42 — 





escraft II 


pIus 


PSC PxP;43 — PxP CxP! se43-—...B2R; 
44 — DxPC TIR; 45 — B7D, a vitória 
das brancas seria quase que matemática. 
44 — PxB PxP;45 — DxP T4D; 46 — 
BxP T7D+; 47 — R3B P5C; 48 — B6D 
R3C; 49 — DSR (?) com possibilidades 
de continuar a luta seria 49 — D7R TxB; 
50 — DxT P6C. 49 — ...T4D; 50 — D4B 
R4C; 51 — B3T (?) era necessário jogar 
51 — BxC! RxB, 52 — B4R e então ain- 
da teríamos luta, o que não aconteceu 
com a continuação do texto. Sl — 
« T6D+; 52 — R2C T1C+; 53 — B4C 
TxB; 54 — Dxt TxB+; 55 — R3B TIC; 
56 — R3R P6T, 57 — DSR P7T; 58 — 
R2D (??) P8T=D e as brancas abandona- 
ram. 





Campeonato Brasileiro 
de Soluções de 1984 





Diagrama B 

1] — As brancas 

jogam e dão 

mate em duas 

jogadas. 
E 
= ana, 
ES GS COS CEU CSS COS COS COS GS US GS ES Em 
- “NIONNINENIEEIARAS 
Solução: u ig 4 : 
1] 


idza L e 











SUPRIMENTO É COISA SÉRIA 


* Matenha o seu computador bem alimentado adquirindo produtos de qualidade consagrada. 





CENTRALDATA 


Com. e Representações Lida 


cl 








DISKETES: 5 1/4 e 8” e fitas magnéticas 
* marca VERBATIM 

ETIQUETAS PIMACO - PIMATAB 
PASTAS E FORMULÁRIOS CONTÍNUOS 





AV. PRESIDENTE VARGAS Nº 482 GR. 201/203 Tel.: KS (021) 2531120 


* Discos Magnéticos: 5 Mb, 16 Mb, 8 Mb, etc. 

* Fitas Magnéticas: 600, 1200 e 2400 pés 

* Fitas CARBOFITAS p/lmpressoras: Globus, M 100/200 - B 300/600 - Elebra 
* Fitas p/Impressoras: Elgin, Epson, Digilab, Diablo, Elebra-Alice. 

* Cartucho Cobra 400 








Microcomputadores CRAFT 
a extensão de sua mente. 


C, 11 - CEP 01452 


SP - Brasil 








BANCOS DE DADOS — Dois serviços públicos 


oferecidos comercialmente a partir deste ano pela 


Embratel possibilitam acesso a importantes bases de dados 


Micros mais próximos 
das bases de 
informações 





uando em 1975 a Embratel 

possibilitou as conversas atra- 

vés do sistema de Discagem 

Direta Internacional, a comu- 
nidade de teleinformática engatinhava 
no Brasil. Dez anos depois ela dá passos 
firmes, de mãos dadas, num projeto 
significativo para o usuário, o Cirandão. 
Da mesma maneira que na dança de 
roda, ele possibilita a reunião dos 
brasileiros que têm em comum o gosto 
pela Informática. Resultado de in- 
vestimentos, até agora, em torno de 
Cr$ 1 bilhão, o Cirandão surge como 
apenas um dos bons resultados de pes- 
quisas da empresa na área, que possibi- 
litaram a criação de outros serviços, co- 
mo o Interdata, Airdata, Findata, Trans- 
data, Interbank e o Renpac, que tam- 
bém já pode ser utilizado este ano. 

A história mais recente da participa- 
ção da Embratel na teleinformática co 
meçou no instante em que se considerou 
necessário estender ao máximo o conhe- 
cimento de operação de microcomputa- 
dores ao quadro de funcionários da pró- 
pria empresa, com o projeto Ciranda. 
Descobriu-se que o projeto poderia ofe- 
recer aplicações acima das expectativas. 
Isto é, proporcionava muito mais que a 
aproximação de funcionários de uma 
empresa. 

Na primeira etapa de implantação do 
Cirandão foram reunidos nada menos 
que 2.100 CP-500, muitos dos quais fi- 
nanciados pela empresa aos funcionários 
interessados em participar do projeto. 


38 


Em torno desses aparelhos, além dos 
2.100 proprietários, muitos dependentes 
foram beneficiados por senhas subsidiá- 
rias. Periodicamente os resultados obti- 
dos eram analisados e dispostos de for- 
ma a retirar deles todas as arestas, para 
elevar o nível do projeto próximo à 
perfeição. Estava sendo criado um dos 
mais saudáveis serviços da Embratel, 
com os participantes da comunidade de 
troca de informações orientando a pas- 
sagem para o projeto Cirandão. 

E, implantado esse projeto, é dado o 
primeiro passo da Embratel rumo a uma 
pesquisa mais ambiciosa, a Inteligência 
Artificial, o aspecto mais importante pa- 
ra a criação da quinta geração de com- 
putadores. Será a utilização do Ciran- 
dão Saúde em experiências de consul- 
tas com linguagem natural. 

Manter um micro apenas para jogos 
não é coisa nem mais de criança. Retirar 
a capacidade “ociosa dos aproximada- 
mente 200 mil aparelhos que já existiam 
até o final de 1984, número que poderá 
subir a 350 mil até o final deste ano foi, 
em tese, o objetivo da Embratel com o 
Cirandão. Em tese, pois a utilização dos 
serviços por parte de 5 por cento dos 
usuários já seria um resultado altamente 
satisfatório para a empresa. 

O que propõe o Cirandão para atrair 
esses virtuais usuários? Um variado re- 
pertório de serviços, que atende desde o 
aluno em dúvida com um dado na pes- 
quisa escolar até o executivo interessa- 
do em contratar um profissional alta- 


mente especializado em novo segmento 
da Engenharia. E isso com a utilização 
de um equipamento bastante simples, a 
partir de um terminal de vídeo, um mo- 
dem e um telefone. 


NAVEGAÇÃO INTEGRADA 


A Embratel já empregou Cr$ 1 bi- 
lhão dos Cr$ 3,5 bilhões previstos para 
a implantação total do programa até 
1991. Os recursos foram utilizados prin- 
cipalmente na criação da infra-estrutura 
de atendimento ao usuário do Cirandão. 
Para a intermediação desse serviço, o 
projeto dispõe de dois minicomputa- 
dores 540 da Cobra, de 1 Mb, operando 
com 32 portas assíncronas, duas unida- 
des de fita magnética de 1.600 bps, duas 
impressoras de 600 LPM, 12 terminais 
para supervisão, desenvolvimento, edi- 
ção e atualização de bases de dados e oi- 
to unidades de disco rígido de 80 Mb, 
quatro das quais para o back-up, da mes- 
ma forma como um dos 540 da Cobra. 
Com o aumento da demanda, já é pre- 
vista a instalação de uma unidade se- 
melhante em São Paulo. 

O Cirandão é acessado através da 
rede de telefonia a partir de seis cidades, 
em caráter gratuito: Rio, São Paulo, Be- 
lo Horizonte, Brasília, Curitiba e Porto 
Alegre. Os usuários de outras cidades, 
por enquanto, acessarão o Cirandão 
através de DDD, arcando com o custo 
da ligação. Os serviços compreendem, 
em termos básicos, Banco de Informa- 
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300 bps 
1200/75 bps 


REDE 
TELEFÔNICA 


300 bps 
1200/75 bps 


SISTEMA 
CENTRAL 


TERMINAL 
MICROCOM 
PUTADOR 





Esquema de acesso ao Cirandão 


ções, Banco de Programas, Serviços de 
Comunicações, Armazenamento de Ar- 
quivos de Usuários e Serviço de Suporte 
aos Usuários. 

De acordo com Luís Cláudio Gon- 
çalves, engenheiro de Telecomunicações 
da Embratel, e um dos encarregados do 
Cirandão, no Banco de Informações es- 
tá sendo disposta, de forma gradativa, a 
mais variada espécie de dados de interes- 
se dos diversos setores da comunidade. 
O sistema efetua a navegação integrada, 
permitindo ao usuário, sem necessidade 
de mudar de banco de dados, obter in- 
formações complementares de fontes al- 
ternativas. Isso tudo com constantes 
atualizações de dados. 

O Banco de Programas possibilita a 
transferência de variada gama de soft- 
ware aos usuários, com atenção especial 
à administração empresarial, profissional 
e doméstica, ciência e tecnologia, edu- 
cação e jogos. Em relação a programas, 
o plano é colocá-los nos terminais com 
requisitos de segurança, como se tives- 
sem sido adquiridos em casas especiali- 
zadas. Através de seus mecanismos, o 
Cirandão deverá se constituir num veí- 
culo de mídia para atendimento das ne- 
cessidades de empresas e clubes de soft- 
ware, possibilitando a inscrição de novos 
sócios, solicitação de programas, treina- 
mento, cobrança de serviços, divulga- 
ção, coleta de opiniões etc. 


COMUNICAÇÃO PESSOAL 


Quanto aos Serviços de Comunica- 
ções, é dividido em quatro áreas: Servi- 
ço de Mensagens, Quadro de Avisos, 
Mercado Eletrônico e Teleconferência. 
A primeira delas atende a comunicação 
em nível pessoal, com caixas postais que 
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armazenam 198 mensagens de 6 Kb ca- 
da, que o usuário do serviço recebe ao se 
inscrever no Cirandão, podendo desig- 
nar seus dependentes para que também 
recebam caixas-postais. O Quadro” de 
Avisos permite ao usuário comunicar- 
se simultaneamente com os demais, en- 
viando-lhes mensagens. Os cirandeiros 
chamam periodicamente o quadro para 
saber se há aviso que lhes interesse. O 
Mercado Eletrônico funciona de forma 
semelhante, mas na área específica de 
compra, venda e troca de bens e servi- 
ços relativos à Informática. A Tele- 
conferência permite que o usuário colo- 
que em discussão um tema, com a pos- 
sível participação dos demais, que po- 
dem comentar, acrescentar informações 
e sugestões, como em uma espécie de 
caixa postal pública. 

Mediante um pagamento específico, 
os cirandeiros podem dispor de certa 
capacidade de memória particular na ex- 
tensão Armazenamento de Arquivos. 
Quanto ao Serviço de Cadastro de Usuá- 
rios, eles são disponíveis on-line e gra- 
tuitamente, objetivando ampliar o rela- 
cionamento com o sistema. Ele fomece 
listagem de outros cirandeiros, infor- 
mações sobre tarifas e serviços e aceita 
sugestões e solicitações visando ao aper- 
feiçoamento do sistema. O Cirandão 
permite também a formação de comu- 
nidades de interesses comuns, até mes- 
mo facilitando a operação de comuni- 
cação entre eles. 

A engenheira Talia Chaves Buarque 
de Hollanda, uma das responsáveis pela 
implantação do projeto, informa que 
nos últimos meses, de acordo com pes- 
quisa, foram feitas 5.300 ligações men- 
sais, em média. Isso representa 0,3 li- 


gação por terminal, com duração, 


» 
e 








Na Mensagem de Erro de MS nº 38, pág. 
106, na correção das linhas 5340 e 5520 do 
programa Batalha Naval (publicado em 
MS nº 32, pág. 70) ocorreram algumas 
falhas, pois não foram escritos os caracteres 
invertidos constantes nestas linhas. Assim, 
repetiremos estas linhas como devem ser 
digitadas: S340 PRINT IíN) O(N) +16. 0H 


SS20 LET MSTIKN).OIN 


Em MS nº 39, pág. 16, no programa Compi- 
lador Forth para Sinclair, houve um erro na 
listagem 1, na linha 140. Corrija esta linha 
para: 140 CLS. 


Em MS nº 39, pág. 72, a listagem do progra- 
ma Space Ghost apresentou falhas de im- 
pressão nas linhas que continham mensagens 
e/ou caracteres invertidos. Para facilitar a 
identificação, publicaremos somente os ca- 
racteres e/ou frases que ficaram ilegíveis nas 
seguintes linhas: 


150: INSTRUÇÕES .. . OBJETIVO: 
160: ATAQUE: 

170: DEFESA: 

210: COMANDOS: 

230: CONSUMO: 

240: VOCÊ PERDERÁ SE: 

650: PARABÉNS 
880: SPACE 
990: > SG 
2550: *T * 

2570: 

2580: 

2590: 

2610: 

2950: 

2990: 

3000: 

3010: 

3020: 

3030: 

3200: CONGRATULAÇÕES, VOCÊ CON- 
SEGUIU CUMPRIR SUA MISSÃO COM 
ÊXITO. OS TERRÁQUEOS AGRADECEM 
E CONFEREM-LHE O TITULO DE * HE- 
RÓI ESPACIAL * 

3220:T 


GHOST 


Em MS nº 40, pág. 36, o utilitário Jogue em 
ritmo Assembler, apresentou incorreções. É 
necessário as seguintes reparações: na pág. 
37, na primeira coluna, segundo parágrafo, 
na sexta linha, apareceu indevidamente a pa- 
lavra tecla, o correto é: . . . nesse canto mas 
apenas na linha da tela. .. Na mesma página 
37, no terceiro parágrafo, segunda linha, 
corrija para: . .. linhas descritas dê RUN e 
veja ... E na figura 2, após o IF INKEY$ 
faltou um sinal gráfico. O certo é: zzzz IF 
INKEY$ <>” THEN. ... 


Em MS nº 40, o programa entitulado DXCC 
cibernético (Rodada MS), pág. 74, está com 
o crédito e o currículo errados. O autor des- 
se programa é Alcione Sperandio Junior, 
formado em Administração de Empresas, 
radioamador desde 1971 e prefixado com o 
indicativo PYSCIG. Alcione utiliza micros 
para desenvolver programas de uso pessoal 
e aplicativos comerciais na área em que atua. 
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também média, de 8'37””. Mas com a 
fase comercial do serviço iniciada este 
ano, os números tendem a apresentar 
uma ascensão, diz ela. 

Para o usuário Sebastião Machado 
Filho, da máquina 2316, não há restri- 
ções ao serviço. Seu tempo de partici- 
pação no Cirandão é utilizado para os 
jogos e aplicativos, na troca de corres- 
pondência mais formal e na conversa 
com colegas de outras regiões em torno 
de assuntos de interesse comum. Enfim, 
como ele diz, “um maravilhoso serviço”. 

O planejamento de custo do Ciran- 
dão foi feito de forma a não pesar de- 
mais no orçamento do usuário, seja ele 
pessoa física ou jurídica. Ele se compõe 
de três parcelas básicas: o serviço de 
telecomunicações, que inclui a telefonia 
local (pulsos) e DDD, utilização do Ci- 
randão (arquivamento de dados, caixa 
postal subsidiária, utilização do quadro 
de avisos etc.) e compra de programas 
de outros cirandeiros. Mesmo assim, essa 
última parcela poderá não existir, fi- 
cando a critério dos provedores. 

Até o fechamento desta edição ainda 
não havia sido divulgada a tabela de tari- 
fação para o Projeto Cirandão. Os inte- 
ressados no serviço podem obter infor- 


mações complementares pelos telefones 
(021) 216-7947 e 2536944. 


RENPAC: 





a transmissão por pacotes 





Outro serviço novo de interesse do 
usuário de micros oferecido pela Embra- 
tel a partir deste ano é o Renpac — Rede 
Nacional de Comunicação de Dados por 
Comutação de Pacotes, de operação 
também muito simples, cuja implanta- 
ção custou à Embratel US$ 18 milhões, 
oito dos quais investidos em equipamen- 
tos importados à empresa francesa Sesa. 
É importante destacar que essa opera- 
ção foi condicionada pela Embratel à 
transferência de toda a tecnologia para 
que, absorvida pelo Centro de Pesqui- 
sas de Dados da Telebrás, em Campinas, 
possibilite a expansão da rede com equi- 
pamentos totalmente fabricados no 
Brasil. 

O Renpac é um serviço voltado mais 
para as pequenas e médias empresas que 
trabalham utilizando Informática. As ta- 
rifas são aplicadas de acordo com o tem- 
po de utilização dos canais e com o vo- 
lume de informações transmitidas, redu- 
zindo custos e possibilitando acesso rá- 
pido a dados existentes em todo o Brasil. 
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Soluções específicas 
para grandes usuários 





A os dois novos serviços implantados comercialmente em 1985 pela Embra- 
tel, juntam-se outros que, apesar de curto espaço em operação na área de 
Informática, já se mostraram muito úteis e em constante aperfeiçoamento. Um 
dos serviços mais consolidados é o Transdata, para gestão de negócios, 
possibilitando o acesso rápido a bancos de dados, bolsas de valores, consultas e 
reservas em hotéis e empresas aéreas ou em aplicações cuja comunicação de da- 
dos é elevada ou distribuída intensamente ao longo do dia. 

O Findata é um sistema voltado para a transferência de dados de forma não 
comutada. Permite o acesso de usuários brasileiros, em três segundos, a infor- 
mações constantemente atualizadas sobre mercado financeiro mundial, dispo- 
níveis em banco de dados do Exterior, como cotações de bolsas de valores e 
mercadorias, moedas, taxas de ji juros etc. Um serviço criado principalmente para 
os setores financeiros e de comércio exterior. 

O Interdata é outro serviço da Embratel que emprega tecnologia de comuta- 
ção de pacotes, permitindo a conexão de usuários brasileiros a terminais no 
exterior e vice-versa. Sua vantagem é possibilitar o acesso a mais de 300 bases 
de dados públicas fora do Brasil, com informações a respeito de Medicina, En- 
genharia, Energia, Educação, Notícias etc. 

Há outros serviços específicos da Embratel voltados a usuários de compu- 
tadores, como o Airdata. Ele se destina exclusivamente a empresas aéreas asso- 
ciadas à Sita — Sociedade Internacional de Telecomunicações Aeronduticas — 
para intercâmbio de informações entre as filiais e sucursais na atualização de 
negócios e reservas de passagens. Já o Inmarsat permite que, via satélite, qual- 
quer usuário em terra se comunique com um navio, plataforma ou embarcação, 
desde que também devidamente equipado. 


No sistema Renpac os acessos aos ser- 
viços podem ser dedicados, através de 
terminais inteligentes, por telefone ou 
telex. Para isso há 1.774 acessos dedica- 
dos, 546 via telefone e 174 via telex. Já 
estão funcionando cinco dos oito cen- 
tros de comutação, no Rio de Janeiro, 
São Paulo, Belo Horizonte, Brasília e 
Curitiba. A partir do interesse e da ne- 
cessidade, serão ativados os de Recife e 
Porto Alegre, além de mais um em São 
Paulo. 

Entre as formas de utilização do Ren- 
pac há o serviço 3025, de acesso dedi- 
cado, sendo que os procedimentos de 
comunicação se fazem regulados pelo 
protocolo X.25 da CCITT (Conselho In- 
ternacional de Telefonia e Telegrafia). 
Apesar de manter a estrutura interna de 
suas máquinas no padrão SNA, a IBM, 
que tem a maioria dos computadores de 
grande porte instalados no Brasil, já se 
comprometeu a dar suporte ao X.25. O 
serviço 3028 é também dedicado, po- 
rém o protocolo é o X.28, para trans- 
missão assíncrona. Neste caso, ao in- 
verso do anterior, que já transmite o 
pacote em bits, a rede é que tem de 
montar o pacote a partir dos caracte- 
res entregues pelo sistema do usuário. 
O serviço 2000 possibilita o acesso a um 
centro por telefone e o 1000, por um 
terminal de telex. A versatilidade do 
Renpac permite, por exemplo, interli- 





gar um terminal operado em modo ca- 
ráter a 1200 bps a uma porta de com- 
putador que esteja operando a 4800 bps 
em modo pacote. 

Com a implantação do Renpac, pro- 
curou-se uma tarifação mais adequada e 
econômica ao usuário em relação a seu 
mais próximo concorrente, o sistema 
Transdata. E em determinados modos 
de utilização do Renpac a economia ob- 
tida chega mesmo a 48 por cento. Mas o 
serviço foi criado de forma a atender ne- 
cessidades específicas. Apenas para 
exemplificar, no sistema 3028, em aces- 
so dedicado, a assinatura fica neste pri- 
meiro trimestre do ano em torno de 
Cr$ 470.000 em velocidade de 300 bps 
e Cr$ 575.000, para 1200 bps. Mas no 
serviço 3025, mais sofisticado, ela pode 
chegar próximo a Cr$ 3 milhões. 

Quem tem o micro no escritório, no 
sistema 2000, pagará no primeiro tri- 
mestre por volta de Cr$ 200 por minuto 
de utilização do serviço. Nos domingos, 
feriados e sábados após 14h e diaria- 
mente após 20h, a tarifa cai para Cr$ 
110 o minuto. Utilizando o sistema 
1000, de telex, o minuto em qualquer 
dia custa atualmente Cr$ 180. Mas os 
planos de tarifas oferecidos pela Embra- 
tel são bem variados, de acordo com o 
sistema utilizado e a forma de transmis- 


são dos dados. E 





Texto final: Bení Lima Pereira 
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Filiada a ABICOMP 


FOX 





Nunca 
ompre uma. 


coisa que você 



















não vai usar 


Leve logo um microcomputador 
TK 85, porque ele é realmente fácil de 
usar: já vem com manual de instruções, 
que ensina,em português claro, 
a linguagem Basic. 
A partir daí, você pode preparar 
seus próprios programas ou utilizar as 
centenas de programas que já existem 
no mercado, para cadastrar clientes, controlar 
estoques, manter em ordem o orçamento 
familiar, fiscalizar a conta bancária, estudar 
matemática, estatistica, jogar xadrez, guerra 
nas estrelas, e o que mais você puder imaginar. 
E além disso tudo, o TK 85 tem 
também o preço mais acessível do mercado. 
Peça uma demonstração. 


TK 85,0 micro que você pode usar. 


computadores pessoais 





BANCOS DE DADOS — Conheça a importância das 
regras lógicas tanto na programação quanto no tratamento 


e organização dos dados 


A Lógica na 
programação 


Jorge da Cunha Pereira Filho 


s computadores são máquinas 

extraordinárias, porém são 

apenas isto: máquinas. A or- 

ganização dos computadores 
faz com que sejam capazes de executar 
apenas operações muito elementares, 
obedecendo a regras rígidas e velocida- 
des eletrônicas. A altíssima velocidade, 
que chega a ser avaliada em MIPS (Mi- 
lhões de Instruções Por Segundo), 
KOPS (o K é de quilo, milhares de Ope 
rações Por Segundo) e MFLOPS (Mega 
Floating-point Operations Per Second, 
isto é, milhões de operações de ponto 
flutuante por segundo), compensa a 
burrice do computador. 

Combinando segiências de instru- 
ções primitivas de máquina chega-se a 
executar uma função mais complexa. 
Reunindo-se um conjunto destas fun- 
ções de forma organizada e lógica, tem- 
se um programa de computador. No 
programa reside toda a inteligência que 
é emprestada à máquina, e é de onde 
vem a sua paradoxal flexibilidade de 
aplicação. Esta flexibilidade vem com- 
pensar a rigidez das regras de progra- 
mação. 

As possibilidades de aplicação do 
computador são, assim, praticamente ili- 
mitadas devido às múltiplas opções da 
troca de programas. A cada novo progra- 
ma corresponderá um novo comporta- 
mento e, portanto, uma nova aplica- 
ção. Desta maneira, a limitação de em- 
prego dos computadores fica condicio- 
nada à capacidade do homem de imagi- 
nar novos usos e, mais ainda, de cons- 
truir os programas necessários. A cons- 
trução de programas é uma tarefa traba- 
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lhosa e complexa, que requer mão de 
obra especializada e, dependendo do vo- 
lume de aplicações imaginadas. é possí- 
vel que chegue a faltar a necessária mão- 
de-obra para construção dos programas. 
O risco existe porque a imaginação é 
mais livre e rápida do que a tecnologia, 
embora o desenvolvimento tecnológico 
venha se acelerando. Haverá um equilí- 
brio, em futuro próximo, entre a imagi- 
nação e a técnica? 


A IMPORTÂNCIA DA LÓGICA 


A construção de programas é, assim, 
a questão central para um uso eficaz dos 
computadores na solução dos problemas 
do homem. Constituindo-se os progra- 
mas em conjuntos de funções organiza- 
das de maneira lógica, obedecendo a leis 
do raciocínio, as regras para racionar 
corretamente tornam-se fundamentais. 
Os programas têm que estar logicamente 
corretos, sem o que não são confiáveis. 

As regras para um raciocínio correto 
já eram conhecidas dos antigos gregos, 
no século IV A. C., desenvolvidas pelos 
filósofos clássicos Sócrates, Platão e 
Aristóteles. A este último, em particu- 
lar, coube criar o corpo de doutrina 
conhecido como Lógica Formal, Lógica 
Menor, Logiquinha ou Epistemologia, 
que contém a sistematização dessas leis. 
Sobre esta descoberta dos gregos repou- 
sa todo o avanço tecnológico moderno: 
a Ciência repousa sobre a Lógica. 

A interpretação matemática dessas 
regras lógicas, contudo, só ocorreu em 
1854, quando o inglês George Boole 
publicou seu trabalho “Uma investi- 


gação das leis do pensamento”. Este 
conjunto de conhecimentos é hoje cha- 
mado de Algebra Booleana, constituin- 
do-se parte da Lógica Simbólica ou Ló- 
gica Matemática. Na época, contudo, 
ninguém sabia exatamente onde aplicar 
tais conhecimentos ou imaginava sua im- 
portância para a construção dos moder- 
nos computadores e mesmo para sua 
programação. 

Quase um século mais tarde, em 
1937, o americano Claude Elwoood 
Shannon, jovem estudante do MIT, em 
sua tese de mestrado “Uma analise sim- 
bólica de circuitos de comutação e relés” 
mostrou que a Lógica Simbólica de 
George Boole descrevia exatamente os 
circuitos lógicos (ou digitais), a base 
para o projeto dos computadores. Esta 
descoberta lhe valeu o prêmio Nobel em 
1939. 

Mais recentemente. a partir da déca- 
da de 70, novas regras lógicas têm sido 
enunciadas, para o processamento de 
informações, como o atestam os chama 
dos métodos de Programação Estrutura- 
da e, por outro lado, a Algebra Relacio- 
nal e o Cálculo Relacional, aplicáveis a 
Bancos de Dados chamados relacionais. 

Para que se possa entender melhor a 
aplicação de regras lógicas no processa- 
mento de informações, seria relevante 
termos uma visão detalhada do que seja 
esta informação e de como ela é por nós 
absorvida e estruturada. 


OBTENÇÃO DA INFORMAÇÃO 


A Informação tem sua origem na rea- 
- lidade que nos cerca. A partir desta rea- 
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SÃO POSSÍVEIS VÁRIAS REPRESENTAÇÕES DO TERMO: 





Figura 1 


lidade, por uma operação de abstração, 
obtém-se o conhecimento. 

O conhecimento de um ser (ou obje- 
to, ou entidade, ou ente) existente no 
mundo real é constituído por um con- 
ceito (ou idéia), que reflete seu tipo (ou 
essência, ou natureza), e um termo. O 
termo é o que nos permite comunicar a 
idéia e, em processamento de dados, é 
chamado de valor. Um termo ou valor 
pode ter diversas representações, como 
mostra a figura 1. 

A informação, conceito ou termo, 
existe no mundo lógico, ou seja, é total- 
mente distinta da sua representação, a 
que comumente chamamos dados, que 
existe no mundo físico. 


CENTER O Banco de negócios. 


Em 5 vezes sem juros 


Excepcional desconto à vista 


TEMOS DRIVE E 
INTERFACE P/ TK 2000 


GRAFIX MX 80 E MX 100, 


JÁ VEM COM PLACA 


P/ RESOLUÇÃO GRÁFICA 


& BRASILTRADE CENTER 


informação 
(termo) 


Figura 2 


A partir da representação, a informa- 
ção poderá ser obtida novamente por 
uma operação de interpretação. Desta 
forma, representação e interpretação são 
operações inversas e correspondem a 
mapeamentos, em sentidos opostos, en- 
tre informação e representação. Uma 
representação gráfica das operações aci- 
ma descritas encontra-se na figura 2. 

Processando-se os dados, tem-se o 
processamento indireto da informação. 
Por isto fala-se indistintamente em pro- 
cessamento da informação ou de dados. 
quando na realidade só se pode proces- 
sar diretamente os dados. 

O processamento de dados se faz 
usualmente sobre um grande volume de 


MUNDO LÓGICO 
operações inversas = mapeamentos em sentidos opostos 





INTERPRETAÇÃO 


dados 
(representação) 


REPRESENTAÇÃO 
Eu MUNDO FÍSICO 


informação, cujo tratamento e manipu- 
lação é talvez um dos mais graves pro- 
blemas da atualidade. A quantidade de 
informação cresce exponencialmente, 
sendo impossível ao ser humano proces- 
sar o volume de informação de que ne- 
cessita a cada dia, em seu campo de ati- 
vidade. 

Pode-se perceber que existem dois 
grandes grupos de informações: o primei- 
ro deles de informação não estruturada 
ou não formatada, e o segundo de infor- 
mação estruturada ou formatada. A di- 
ferença entre o tratamento de um grupo 
e do outro, ao menos nos dias atuais, faz 
com que sejam estudados separada- 
mente. EA 


THE 
FIRST 
VIDEO 


CASSETE 
EN GLISH COURSE 


e Com 2 fitas de 3.30 hs. de duração, um manual, um 
livro de exercicio e um de texto você e toda a sua 
familia aprenderão a falar inglés, a lingua universal. 
e Produzido a cores pela equipe da TV mais 


importante do Brasil. «e Gravado em estúdio e em 


a 
6 3 a 


externas mostrando sempre cenas do nosso cotidiano. 
e Preço de lançamento à vista com desconto 


Faça-nos uma visita em qualquer um 
dos nossos endereços: 


INFORMAÇÕES: TEL.: 259-1 299 


COMPUTER CAMPING 
BTC VIAGENS E TURISMO 


Av. Epitácio Pessoa, 280 (Esg. Vic. Pirajá) — IPANEMA Tel.: (021) 259-1299 — Telex: (021) 30212 BTCP-BR 
Assembleia, 10/1j. 112 (Ed. Cândido Mendes) — CENTRO Tel.: 222-5343 
Av. das Américas, 4790 s/615 (Centro Profissional Barra Shopping) — BARRA Tel.: 
Rua 16 de Março. 80 s/lj. 3 — PETRÓPOLIS 
Rua dos Mineiros. 55 s/102 — VALENÇA 


325-0481 





A LÓGICA NA PROGRAMAÇÃO 


ABSTRAÇÃO 
12 PASSO 2º 


; conhecimento 
realidade ou 


informação 
inicial 





Figura 3 


Um bom exemplo desta distinção é 
encontrado nos bancos de dados, indis- 
pensáveis para a implantação de sistemas 
gerenciais. Os sistemas de bancos de 
dados que manipulam informação não 
formatada são conhecidos como siste 
mas de recuperação da informação. Al- 
guns distinguem, nestes últimos, a busca 
retrospectiva, que permite fazer consul- 
tas sobre a informação previamente 
armazenada, da disseminação seletiva, 
que possibilita a distribuição da infor- 
mação previamente classificada de acor- 
do com o perfil de interesse dos usuários 
do sistema, como dois de seus subsiste- 
mas. 

Os sistemas de bancos de dados que 
manipulam a informação formatada é 
que são correntemente chamados de 
bancos de dados, e fazem parte de siste- 
mas de informação empresarial. Talvez 
por isto tenham sido, até agora, foco de 
maiores atenções. 

É possível que haja um denominador 
comum entre os dois tipos de banco de 
dados. Todavia, se e quando ocorrerá 
uma convergência no tratamento dos 
grupos de informação é ainda uma in- 
cógnita. 


ORGANIZAÇÃO DA INFORMAÇÃO 
ESTRUTURADA 


A informação estruturada não é 
obtida em um único passo. Deve-se dis- 
tinguir a informação inicial da informa- 
ção modelada. A informação inicial é 
aquela a que geralmente chamamos co- 
nhecimento, e se constitui numa infor- 
mação genérica, não estruturada, com 
contornos não muito nítidos e possivel- 
mente algumas imprecisões. 





MODELAGEM 
PASSO 





À 3:08 B 7 


informação 


Figura 5 


INPUT A$ 
INPUT BS 


no 


IF AS = "v 
PRINT "A= "; AS; 
STOP 


modelada ou 
estruturada 





Figura 6 


Para que a informação seja proces- 
sada, como dado, ela tem que ser or- 
ganizada e sofrer um processo de refi- 
namento. Portanto, a partir da informa- 
ção inicial, com base em um modelo, dá- 
se a organização. São necessárias, desta 
forma, duas etapas de abstração para se 
chegar à informação modelada. Esta se- 
quência de operações pode ser vista na 
figura 3. Nela, está representada a 
obtenção de estruturas de informação 
(ou construções), compostas por valores 
elementares (atômicos) e suas ligações 
(ou relacionamentos, ou nexos, ou de- 
pendências ou conexões). A partir de 
estruturas mais simples, por composi- 
ção, é possível obter-se estruturas de 
informação mais complexas. 

A relação lógica entre os diversos 
elementos de uma estrutura de informa- 
ção ou entre um grupo de estruturas 
simples não é, contudo, uma necessida- 
de puramente abstrata. Na construção 
de programas de computador, existem 
regras de ligação e relacionamento de 
expressões que devem ser observadas, 
visto que programas nada mais fazem 
que transformar estruturas de informa- 


ção. 


A LÓGICA DA ÁLGEBRA DE BOOLE 


O controle de execução de um pro- 
grama depende da verificação de deter- 
minadas condições, que são expressas 
por meio de expressões lógicas em quase 
todas as linguagens de programação de 
alto nível. ; 

As expressões lógicas são formadas, 
basicamente, com o uso de operadores 
lógicos como o NOT (não lógico), o 
AND (e lógico) e OR (ou lógico). Algu- 


LET C$ = “P* 


1 AND (AS = "S")|A=4 OR B=3 AND A$= 


C$="FALSO" AND NOT 





AND BS = "V" THEN LET CS = “y" 
"Be"; B$; ".A.B= “05 





mas linguagens incorporam outras ope- 
rações lógicas como, XOR(ou exclusivo), 
IMP (implicância) e EQU (equivalência). 
Vamos aqui nos restringir aos três pri- 
meiros, os mais usuais. 

As operações NOT, AND e OR, na 
Álgebra Booleana, são expressas por ta- 
belas de verdades, onde O representa o 
valor falso e o valor 1 representa verda 
de. Na figura 4 estas tabelas são apresen- 
tadas, onde NOT é representado por 
— (barra), AND por . (ponto) e OR por 
+ (mais). 

Existe uma precedência na aplicação 
dos operadores que é, da maior para a 
menor prioridade: NOT, AND e OR. 
Além disto, não pode haver dois opera- 
dores juntos (como AND OR). Exceção 
é aberta para NOT, que pode ser prece- 
dido de AND ou OR (como AND NOT). 


Uma das instruções que utilizam as 
expressões lógicas é a de desvio condi- 
cional, que, dependendo da linguagem 
de programação, pode ter a forma IF- 
THEN ou IF-THEN-ELSE. A figura Silus- 
tra a formação de algumas expressões 
booleanas em linguagem BASIC. 

A observação da figura 5 revela que 
os membros de uma expressão lógica 
podem conter outras expressões lógicas 
(como o são as expressões relacionais), 
expressões aritméticas ou alfanuméricas 
e parêntesis 

As expressões relacionais estabelecem 
uma relação entre duas expressões arit- 
méticas ou alfanuméricas através de ope- 
radores que, na linguagem BASIC, são 
representados por: < (é menor do que); 
< = (é menor do que ou igual a); = (é 
igual a);< > (é diferente de); >= (é maior 
do que ou igual a); > (é maior do que). 
As operações relacionais permitem com- 





12 teorema: A, 


Figura 7 


=A+B | 2º teorema: A+B=A.B 





IF (A>3) AND (AS="SIM*) TRENS ... 
condição inicial 


IP (A<=3) OR (AS<>"SIM") THEN ... 
condição inversa 





Figura 8 
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parar dois valores (ambos numéricos ou 
ambos alfanuméricos) e estabelecer a re- 
lação entre eles, resultando em um valor 
falso ou verdadeiro. 

Um exemplo elementar da aplicação 
de operações booleanas na programação 
é mostrado na figura 6, com um progra- 
ma em BASIC que lê dois valores boo- 
leanos Falso e Verdadeiro, exibindo na 
tela o resultado do AND. 

A aplicação do exemplo na figura 6 
foi feita apenas para dois termos, À e B. 
Todavia, pode ser generalizada para 
qualquer número de termos. Além disto, 
ao invés de um único tipo de operador, 
poderá ser avaliada uma expressão que 
contenha os três tipos de operadores si- 
multaneamente, em qualquer número e 
ordem. 

Afora as expressões fundamentais, 
existem muitas outras relações na Álge- 
bra de Boole — todas demonstráveis na 
forma de teoremas —, das quais duas 
têm particular interesse para a progra- 
mação: os dois teoremas de De Morgan, 
apresentados na figura 7. 

A aplicação dos teoremas de De Mor- 
gan permite ao programador inverter as 
condições de teste em desvios ou outras 
instruções condicionais. Um exemplo 


com a instrução de desvio condicional, 
em BASIC, está na figura 8. 

Outras relações da Álgebra Booleana 
também podem ser úteis ao programa- 
dor, todavia foge ao escopo deste artigo 


“examinar todas as possibilidades. 


A LÓGICA DA PROGRAMAÇÃO 
ESTRUTURADA 


A palavra de ordem nã programação 
é estruturar os programas. Novamente 
aqui, a Lógica está presente, e não pode- 
ria ser de outra forma. 

Programar de forma estruturada im- 
plica em obedecer ao raciocínio natural, 
ou seja, descrever os processos como 
eles são, sem utilizar artificialismos que 
dificultem a compreensão dos progra- 
mas. 

Para tal, é necessário analisar e des- 
crever os problemas como a própria in- 
teligência o faz: do geral para o particu- 
lar, ou, no jargão dos técnicos, de cima 
para baixo (top-down). Os problemas que 
nossa inteligência pode entender de um 
só relance são muito poucos. Isto nos 
obriga a sucessivas passagens sobre o 
problema, desdobrando-o, a cada etapa, 
em problemas mais simples: por refina- 


mentos sucessivos (step-wise refinement ). 
Além disto, é preciso utilizar estruturas 
lógicas disciplinadas, padronizadas e 
bem conhecidas. 

Os tipos de estruturas lógicas básicas, 
na programação estruturada, são três: 
sequência, alternativa e repetição. Cada 
uma destas estruturas (ou blocos) cor- 
responde a uma forma natural de racio- 
cínio. Estas estruturas de raciocínio e as 
respectivas estruturas de programação 
são apresentadas na figura 9. 

Além dos blocos lógicos da figura 9 
(que são básicos), outros têm sido de- 
senvolvidos, correspondendo a outras 
estruturas de raciocínio. Assim, por 
exemplo, é possível generalizar a alter- 
nativa para ter múltiplos caminhos, cor- 
respondendo à estrutura de alternativa 
múltipla (case), representada em BASIC 
pela instrução ON-GOTO (ou GOTO< 
expressão aritmética > em BASIC Sin- 
clair). 

Em muitos casos, também é útil dis- 
por de uma instrução para abandonar 
um bloco de repetição que, no caso do 
BASIC, é implementada por uma ins- 
trução IF-THEN dentro do alcance do 
bloco e fazendo o desvio para fora da 
malha de repetição. Um caso particular 

» 
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Figura 9 
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DIAGRAMA EXEMPLO EM BASIC 


50 INPUT X 
60 LET Y = xº*2 
70 PRINT Y 

















IF A=3 THEN GOTO 500 


coro 700 
LET Z=X*+2 


LET Wep-5 


IF B<) THEN GOTO 300 


coro 190 
LET P=Q-2 


100 LET Z=x*+z 


200 IP B>= 7 THEN GOTO 100 
LET P=Q-2 
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IBM PC, RADIO SHACK, APPLE COMPUTER, 
EPSON E TODAS AS MARCAS NACIONAIS. 


A MS trabalha desde 1971 em assistência especializada em 


ue se estende desde check-ups preventi- 
de peças, de unidades oudo 


próprio micro durante o tempo em que ele estiver em preparo. 


Tenha ao seu lado a melhor assistência técnica em micro- 
computadores do país. 


FAÇA COMO AS GRANDES EMPRESAS: 
Varig, Petrobrás, Pão de Açúcar, Aços Villares, Philco, etc. 


Contrato de manutenção com a MS é garantia de bom funcio- 
namento de seu equipamento. 


Solicite nosso representante ou faça-nos uma visita. 


Assistência Técnica a Microcomputadores. 
Rua Dr. Astolfo Araújo, 521 fone: 549-9022 
Cep.:04012- Pq. Ibirapuera - São Paulo. 





A LÓGICA NA PROGRAMAÇÃO 


da estrutura enquanto-fazer é a estru- 
tura para-fazer, que no BASIC corres- 
ponde à malha de repetição construída 
com FOR-TO-STEP e NEXT. 

Deve-se observar que os blocos fun- 
cionais básicos têm uma só entrada e 
uma só saída. Caso se programe em 
BASIC, contudo, esta característica po- 
de não ficar muito clara. Isto se deve ao 
fato de que o BASIC não é uma lin- 
guagem estruturada e, portanto, é preci- 
so simular muitas das estruturas através 
de instruções IF-THEN e GOTO. 


A LÓGICA DA ÁLGEBRA 
RELACIONAL 


Bancos de dados são importantes 
intrumentos para a implantação de siste- 
mas de informação, não apenas em gran- 
des computadores mas também em 
micros. 

Do modelo ou vista que o usuário 
tem da estrutura de dados na base de 
dados, resultam três enfoques gerais: 
em redes, hierárquico e relacional. 

O modelo relacional, em particular, 
apresenta maior interesse devido a sua 
simplicidade. Os arquivos de dados são 
vistos como tabelas em que cada linha 
corresponde a um registro de dados. 
Cada registro, como é usual, engloba 
diversos campos. No modelo relacional, 
todavia, estas estruturas de dados têm 
nomes próprios. A tabela ou arquivo é 
chamada de relação, por analogia com o 
termo correspondente da teoria dos con- 
juntos, de onde a teoria do modelo rela- 
cional derivou. Um registro é chamado 
de tupla (de n-tupla). 

Por analogia com as operações sobre 
conjuntos matemáticos, diversas opera- 
ções foram definidas sobre as relações. 
Deve-se observar que o resultado de 
uma operação sobre relações é, sempre, 
uma nova relação. As principais opera- 
ções são união; interseção; indiferença; 
produto cartesiano; projeção; seleção 
(restrição); junção e divisão. 

A operação de união, entre as rela- 
ções A e B do mesmo tipo, é represen- 
tada por T+ A U B, onde T é a relação 
resultante. Corresponde às operações de 
intercalação ou inclusão. 

A operação de interseção, entre as re- 
lações A e B do mesmo tipo, é represen- 
tada por T+A NB, onde T é a resultan- 
te. Corresponde à operação de extração. 

A diferença, entre as relações A e B 
de mesmo tipo, é representada por 
T+ A — B. Corresponde à operação de 
exclusão. 

A operação produto cartesiano, das 
relações A e B, de tipos diferentes, é 
representada por T+A x B. Corresponde 
à concatenação das tuplas (regisros) de 
ambas as relações A e B, segundo regras 
similares às da matemática, aplicadas a 
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RELAÇÕES: 
A: 


CoD NOM DEP 





019 JOÃO 100 


MARIA | 300 





047 JOSÉ 100 
ANTONIO 


JOSÉ [100 








OPERAÇÕES: 


UNIÃO 


tuplas das relações A e B, quando estas 
tiverem os valores dos atributos P e Q. 
Corresponde ao estabelecimento de uma 
ligação. 

A operação de divisão, do conjunto 
A pelo conjunto B, é representada por 
T+<A(X:Y) BB, onde X é um atributo 
de A e Y é um atributo de B. Será feita 
uma restrição sobre B com relação a Y. 


A seguir, serão relacionadas em A as 
tuplas que possuem, sob o atributo X, a 
sequência completa dos valores dos atri- 
butos da restrição obtida em B, sob o 
atributo Y. Corresponde a uma restrição 
múltipla, isto é. com base em um con- 
junto de valores de um atributo. 

A Álgebra Relacional é completa, 
possuindo todas as operações necessárias 


ao processamento de informações. Sua 
grande vantagem é que não existem de- 
pendências, seja com relação aos dados, 
à estrutura de dados ou a métodos de 
acesso que são ignorados. Exemplos de 
algumas das operações da Álgebra Rela- 
cional, com base em três tabelas relacio- 
nais, A, Be C, encontram-se na figura 
10. 





INTERSEÇÃO 


T A B | 


DIFERENÇA 


4 A = B 


PRODUTO CARTESIANO 





T Bxc 
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00 200 ADM 
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MARIA | 300 | 300 
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PROJEÇÃO 


T A DEP 


RESTRIÇÃO 


T A DEP=100 
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JOSÉ 100 300 


01 


[ora [ soão | 100] 





JUNÇÃO 


T A DEP = NDEP 





NOM NDEP 


SIGLA 





[019 | 


JOÃO | 100] 100 | PROD 





[ 047 | 


JOSÉ 100 | 100 | PROD 





031 | ANTONIO 


Figura 10 


itens de dados escolhidos. 

A operação de projeção, sobre uma 
relação A, é representada por T<A (X, 
Y,..., Z), onde X,Y.... e Z são atributos 
da relação. Esta operação corresponde a 
uma eliminação de colunas de uma rela- 
ção. Restarão apenas as colunas de 
nomes X,Y... e Z, fazendo-se a elimina- 
ção também de linhas repetidas, isto é, 
não são permitidas linhas duplicadas. 

A operação de restrição, sobre uma 
relação A, é representada por T< A 
(X=a,Y=b,..,Z=c), onde X,Y,...e Z 


200 | 200 | ADM 








são atributos e a, b,... e c são os valores 
dos atributos. Esta operação determina 
a seleção de tuplas (registros) que aten- 
dem à condição estabelecida, isto é, 
possuem como valor dos atributos X, 
Y,...eZ os valoresa, b,... e c, respectiva- 
mente. Corresponde a uma operação de 
extração ou de encontrar registros. 

A operação de junção, das relações A 
e B, de tipos diferentes, é representada 
por T<+A (P=Q) B, onde P é um atribu- 
to da relação A, e Q é um atributo da 
relação B. Será feita a concatenação das 
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BANCOS DE DADOS — Com a popularização do hardware os usuários 
de micros passaram a acessar grandes bancos de dados. 
Veja alguns conceitos sobre este assunto 

















Administração 
de dados e os micros 


Antônio L. Furtado * Daniel A. Menascé 


ancos de dados são hoje reconhecidos como uma das 
aplicações mais importantes de computadores. São 
componentes essenciais de sistemas de informação, 
numa época em que a informação se coloca como 

um dos bens de produção. 
Quando uma empresa adota a abordagem de bancos de da- 
dos, automaticamente se compromete a manter um controle 
centralizado da informação de que dispõe. De início, a própria 


localização física da informação é centralizada. Gradualmente, 


as empresas maiores tendem a repartir a informação pelas áreas 
geográficas onde exercem suas atividades, passando a uma or- 
ganização de sistemas distribuídos. Mas, mesmo neste caso, o 
controle da informação permanece centralizado. 

Para controlar a informação, cria-se a função do adminis- 
trador de dados, cujo instrumento fundamental.de trabalho 
são os dicionários de dados, geralmente ligados aos bancos de 
dados. O administrador 'de dados deve saber quais informações 
são disponíveis e onde se encontram, além de disciplinar a 
criação de novos sistemas de informação através da empresa. 

O advento dos microcomputadores veio criar novas e inte- 
ressantes oportunidades para o uso de bancos de dados, mas 
também colocou certos problemas. Antes de discutir tais opor- 
tunidades e problemas, vamos rever algumas noções de bancos 
de dados (o leitor já familiarizado com o assunto poderá saltar 
a próxima seção). 





ALGUNS CONCEITOS 





Bancos de dados são conjuntos de arquivos interligados de 
alguma forma. O tipo mais simples de “ligação” consiste na 
existência em dois ou mais arquivos de valores comparáveis. 
Considere os dois arquivos abaixo, onde EMP contém informa- 
ções sobre empregados e DEP informações sobre departamen- 
tos. 
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EMP 


salário lotação 


nome 





DEP 


sigla sede 





Note que as colunas lotação, em EMP, e sigla, em DEP, contêm 
valores da mesma natureza (abreviaturas de nomes de depar- 
tamentos). Dizemos que os atributos lotação e sigla provém 
do mesmo domínio de valores, e são portanto comparáveis. 
Considere agora as seguintes consultas a esse banco de dados: 
1. Em'qual departamento Pedro está lotado? 

2. Qual a sede do departamento financeiro? 

3. Em que cidade Pedro trabalha? 

Observe que as duas primeiras consultas não têm nada de 
especial, e podem ser respondidas percorrendo apenas um ar- 
quivo (EMP, para a primeira, e DEP, para a segunda). Já a ter- 
ceira pergunta é típica de bancos de dados. Temos de procurar 
a linha (registro) de EMP em que se encontra Pedro, para des- 
cobrir em que departamento está lotado, e depois procuramos 
em DEP a linha desse departamento para finalmente desco- 
brir em que cidade está sediado (entende-se que um empregado 
trabalha na cidade sede de seu depactemaato. 
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Essa maneira simples de visualizar arquivos como tabelas, 
e de combinar a informação contida em uma com a que existe 
nas outras através da comparação de valores, é uma das carac- 
terísticas do chamado modelo de dados relacional. Um modelo 
de dados consiste de certas estruturas de dados (tabelas, no ca- 
so do modelo relacional) que obedecem a certas regras e são 
manipuladas por certas operações. Uma das operações mais 
importantes do modelo relacional é a operação de junção, que 
permite justamente associar informações contidas em duas ta- 
belas através da comparação de valores. 

Além do modelo relacional, há dois modelos importantes — 
o hierárquico e o de redes —, os quais envolvem estruturas de 
dados mais complexas. Os diversos sistemas para definir e ma- 
nipular bancos de dados (Sistemas de Gerência de Bancos de 
Dados — SGBDs) seguem, em geral, um desses modelos, con- 
forme os exemplos abaixo: 
— modelo hierárquico — IMS, sistema 2000 
— modelo de redes — IDMS, DBMS-10, DMS-1100, IDS-II 
— modelo relacional — SOL/DS, QBE, INGRES 

Nenhum desses exemplos de SGBD é voltado para micro- 
computador, mas essa falta será corrigida mais adiante. Antes, 
gostaríamos de observar que, qualquer que seja o modelo de 
dados seguido por um SGBD, é útil que o SGBD disponha de 
mais algumas estruturas auxiliares para tornar O acesso aos 
dados mais eficiente. Dentre essas estruturas auxiliares desta- 
cam-se os índices 

Um índice é como um índice remissivo de um livro. Quan- 
do queremos achar onde algum assunto está descrito em um li- 
vro, não precisamos folhear o livro todo — podemos procurar 
no índice. Suponha a seguinte consulta sobre o mesmo banco 
de dados: 
4. Quais empregados estão no nível salarial 100? 


A resposta a esta consulta é mais rápida se tivermos um índice 
como o que mostramos a seguir (é claro que a vantagem dos 
índices é tanto maior quanto maior for o arquivo sobre o qual 
está definido, o que não é o caso no nosso pequeno exemplo, 
dado apenas para ilustrar a idéia): 





nome salário lotação 





As setas deste exemplo correspondem aos endereços (localiza- 
ção física) dos registros que contêm cada valor de nível sala- 
rial. Note também que, no índice, os níveis salariais estão em 
ordem e que assim mostram EMP classificado (indiretamente) 
por nível salarial. 





O DESAFIO DOS MICROS 





Até há algum tempo se pensava que para manipular bancos 
de dados seriam necessários equipamentos de grande porte. 
Hoje existem numerosos Sistemas de Gerência de Bancos de 
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Dados (SGBDs) que rodam em micros. Aos poucos, as dificul- 
dades inerentes aq tamanho da memória, capacidade de ar- 
mazenamento em memória secundária, eficiência dos algo- 
ritmos de acesso, uso compartilhado etc. vão sendo vencidas. 

A título de ilustração, podemos verificar que hoje em dia já 
existem microcomputadores com memória principal com capa- 
cidade da ordem de 700 Kbytes, e já se estima que, dentro de 
seis meses, os fabricantes brasileiros de microcomputadores es- 
tarão equipando as suas máquinas com discos Winchester cuja 
capacidade pode variar de 30 a 70 Mbytes por unidade. Estas 
observações nos mostram que atualmente já é viável pensar no 
desenvolvimento de sistemas aplicativos complexos baseados 
em bancos de dados em microcomputadores. 

À medida que o volume de dados a ser manipulado cresce, 
torna-se mais crítica a eficiência dos sistemas de gerência de 
bancos de dados para micros. É precisamente neste ponto que 
os sistemas de uso “doméstico” se distinguem dos sistemas de 
uso profissional. No entanto, os micros colocam um problema: 
como seu baixo custo estimula o uso no estilo de computação 

ssoal, usuários individuais começam a criar seus próprios 

ancos de dados, dificultando o esquema de controle do admi- 
nistrador de dados. 

Para que são esses bancos de dados “pessoais”? Às vezes são 
realmente do interesse restrito de um usuário, como listas de 
endereços, agenda, controle de correspondência etc. Em outros 
casos são sumários, periodicamente atualizados, de grandes 
bancos de dados operacionais da empresa. Esses sumários (ar- 
quivos-resumos) são usados por indivíduos de nível gerencial 
para apoio à tomada de decisão, algumas vezes sendo tratados 
por pacotes estatísticos e de desenho de gráficos. 

Um banco de dados em micro pode estar isolado. Mas tam- 
bém pode estar em ligação permanente com outros bancos 
de dados, ou por ser o micro conectável como terminal ao 
equipamento principal da empresa, ou por estar ligado com ou- 
tros micros em rede local. Esta última modalidade é uma forte 
tendência no processo de automação de escritório. 

A tarefa do administrador de dados se dificulta. A não ser 
que ele receba apoio da direção, não conseguirá manter contro- 
le (nem mesmo conhecimento) da informação disponível na 
empresa. Além de exercer esse controle, cabe a ele assessorar 


em uma linguagem de programação de alto nível, tal como 
PASCAL ou BASIC, na qual os comandos de manipulação de 
dados estão embutidos. Interfaces amistosas para uso por não- 
especialistas em processamento de dados serão desenvolvidas. 

Uma recente publicação fez análise comparativa dos diver- 
sos SGBDs disponíveis no mercado americano, analisando cer- 
ca de 33 sistemas. Seus preços variam desde poucas dezenas de 
dólares até valores próximos a US$ 6,000. Esta variação ilus- 
tra as diferenças em complexidade e poder dos pacotes anali- 
sados. 


UMA TENDÊNCIA FUTURA 


Desde que o Japão anunciou seu projeto de 52 geração, os 
esforços na área de Inteligência Artificial atraíram uma consi- 
derável atenção. Destacam-se conceitos complementares: ba- 
ses (ou bancos) de conhecimento e sistemas especialistas. 
Costuma-se dizer que, assim como na última década a compu- 
tação evoluiu do processamento de dados para o processa- 
mento de informação, agora começamos a evoluir para o pro- 
cessamento de conhecimento. Este último é constituído de fa- 
tos e de regras gerais que, aplicadas sobre os fatos através de al- 
gum mecanismo de interferência, produzem novos fatos. 

Um banco de dados convencional contém apenas fatos, en- 
quanto um banco de conhecimentos contém também regras 
gerais. Sistemas especialistas com capacidade inferencial po- 
dem manipular esses bancos de conhecimentos para executar 
tarefas complexas, como o diagnóstico médico. 

Para construir sistemas especialistas já são disponíveis al- 
gumas linguagens voltadas para micros, como o micro-PRO- 
LOG. Um projeto em andamento na PUC/RJ visa colocar a 
linguagem EAFO (de mais geral que PROLOG e tam- 
bém desenvolvida na PUCIRI) também disponível em micro. 
Naturalmente, o problema de eficiência quando se adiciona 
“inteligência” aos bancos de dados se toma mais complexo, 
mas talvez tenhamos aplicações relativamente grandes imple- 
mentadas sobre micros em futuro próximo. 
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Linguagem de máquina não é um bicho de sete 
cabeças. E ajuda você — e como — a dar mais 
rapidez a seus programas em BASIC. Experimente só... 








Manipulação de vídeo 
em Assembler 


Mário José Bittencourt 


lgumas vezes, na tentativa de acelerar seu programa 
em BASIC, você esbarra nos limites da linguagem e 
passa a trabalhar em Assembler. O que talvez você 
não saiba é como apresentar, no vídeo, dados nessa 
linguagem. É justamente para você que este artigo foi preparado. 

O método mais simples disponível nos micros com lógica 
Sinclair para apresentar um caráter no vídeo é carregar o acu- 
mulador do Z-80 com o código do caráter e executar a instru- 
ção RST 16. Essa instrução equivale em BASIC a PRINT CHRS$ 
ACUMULADOR, ou seja, imprime o caráter desejado. A ope- 
ração, porém, tem uma restrição: o caráter deve estar no inter- 
valo de O a 63 ou de 128a 191, isto é, sua representação biná- 
ria deve ter o bit 6 ressetado. Essa restrição existe porque os 
caracteres fora desses intervalos não são usados pelo TK ou en- 
tão sua representação no vídeo ocupa mais de um byte, con- 
forme você poderá observar dando uma olhada no manual. 

É conveniente que para acompanhar este artigo você tenha 
em seu micro um programa editor de Assembler, como o mo- 
nitor publicado na MS nº 23, ou o Micro Bug. Por exemplo, 
para que seu micro escreva a letra M, execute: 


ENDEREÇO CONTEÚDO  MNEMÔNICO DESCRIÇÃO 

16514 62-50 LD A,50 | :Carrega O caráter 'M! no acumulador 
16516 215 RST ]6 :Imprime o caráter 

16517 201 RET :Retorna 


O ponto de entrada dessa rotina e das demais que consta- 
rem deste artigo é 16514 e os valores estarão todos em deci- 
mal. 

Se você quiser que um byte com bit 6 setado seja impresso 
no vídeo, você deverá carregar o acumulador com esse byte e 
executar CALL 2379. Por exemplo, para apresentar a palavra 
REM, execute: 

16514 62-234 LD A,234 :Carrega o acumulador com 'REM* 


16516 205-75-9 CALL 2379 :Imprime O carater 
16519 201 RET 


(note que 234 = 11101010) 


Existe outro método de impressão no vídeo e que tem a 
vantagem de ser mais rápido, porém só é executável em micros 
com 16 Kb ou mais de RAM. Ele consiste em apontar com o 
par HL uma região da memória que é usada como buffer do ví- 
deo e então gravar diretamente aí o caráter desejado, desde que 
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ele respeite a limitação imposta pelo bit 6, conforme foi expli- 
cado anteriormente. 

O buffer é demarcado pelo conteúdo dos endereços 16396 
e 16397 (DFILE) e se organiza da seguinte forma: um caráter 
118 indicando início do buffer, seguido de 24 linhas compos- 
tas de 33 caracteres: 32 utilizados para texto e um código 118 
encerrando a linha. 

Essa organização dá ao buffer um total de 793 bytes, dos 
quais 768 são utilizados para texto e 25 para controle. Para 
que seja impresso desse modo um M inverso, execute: 

16514 42-12-64 


LD WL,(16396) —:HL aponta buffer 


16517 35 INC HL :HL aponta a la. coluna da la. 
“Linha 

16518 54-178 LD (HL),178 :Grava O caráter 

16520 201 RET 


Contudo, esse método não é aplicável em micros com 2 Kb 
porque o buffer, neste caso, se organiza de modo diferente. 
Por questão de economia de memória fica reduzido ao código 
118, que indica o início do buffer, seguido de 24 códigos 118, 
indicando o final das linhas. Desse modo, o buffer se expande 
à medida em que o RST 16 vai colocando caracteres, economi- 
zando assim memória para cálculos e outras tarefas. 

Em 2 Kb nosso método de impressão simplesmente apagaria 
o código 118, que indica final da linha 1 e destruiria o progra- 
ma da memória. 


APRESENTANDO UMA STRING 


Vamos recordar o que significa RST 16. A instrução impri- 
me um caráter no vídeo de forma similar a um PRINT CHRS 
ACUMULADOR; . O ponto e vírgula em BASIC significaria pa- 
ra o próximo PRINT imprimir logo após o último caráter im- 
presso. É exatamente isso que o RST 16 faz. Logo, para escre- 
ver uma string podemos executar: 


16514 62-50 LD A,50 :Carrega o acumulador com 'M! 
16516 215 RST 16 

16517 62-38 LDA,38 A! 
16519 215 RST 16 

16520 62-55 LD A,SS :'R' 
16522 215 RST 16 

16523 62-46 LD A,46 tI* 
16525 215 RST 16 

16526 62-52 LDA,52 sto! 
16528 215 RST 16 

16529 201 RET 


Isso funciona perfeitamente, mas imagine como escrever 
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uma string com 100 ou 200 caracteres. No caso seria necessá- 
rio fazer a impressão de modo indireto, executando: 





16514 141-64 LD HL, 16525 :HL aponta a string 

16517 LD 8,5 :Prepara contador para 5 letras 
16519 :Lê o caráter da string 

16520 35 :HL aponta o próximo caráter 
16521 215 RST 16 

16522 16-251 DINZ sRepete 5 vezes 

16524 201 RET 

16525  50-38-55-46 :Mensagem 'MARIO'! 


16529 52 


Para facilitar, os micros trazem em sua ROM algumas roti- 
nas que visam facilitar a impressão de uma string. Apontando 
com DE uma string, definindo em BC seu comprimento e exe- 
cutando CALL 2923, a string será impressa no vídeo. Como 
essa rotina se utiliza da instrução RST 16, ela contorna qual- 
quer problema que possa surgir quanto à impressão de um ca- 
ráter com o bit 6 setado ou ressetado. 

Você também dispõe em Assembler do comando PRINT AT, 
do BASIC, acessível do seguinte modo: define-se em B a linha, 
em C a coluna e executa-se CALL 2293, que equivale a PRINT 
AT B,C;. Veja então como se escreve no meio do vídeo “ALO 
MAMAE. EU JA SEI ESCREVER EM ASSEMBLER NO TK”: 


16514 
16517 
16520 
16523 
16526 
16529 
16530  38-49-52-0 E 
16534  50-38-50-38 EM 
16538 42-27-42-58 

16542 
16546 
16550 
16554 
16558  0-42-50-0 
16562 
16566 
16570 
16574 


Como você observou, essa rotina não separa sílabas, logo 
você deverá reformar a string, de modo que a frase surja perfei- 
tamente legível no vídeo. 

As rotinas de PLOT e UNPLOT também são acessíveis em 
Assembler. Basta colocar em B a abcissa e em c a ordenada do 
ponto a ser plotado (ou unplotado) e executar CALL 2994. 
Para a rotina identificar se a opção é PLOT ou UNPLOT, você 
deverá especificar no endereço 16432 (SXEN) o valor 100 para 
PLOT e 200 para UNPLOT. Para plotar o ponto (21,31), exe- 
cute: 


:B=10 e C=0 

PRINT AT B,C; 

:DE aponta a string 

c,4 :BC contém o comprimento 
2923 «Imprime a string 








LD DE, 16530 








MAMAE.EU JA SEI ESCREVER 
ASSEMBLER NO TK' 








16514  33-48-64 LD HL, 16432 


:HL aponta SXEN 





16517 54-100 LD (HL),100 
16519 1-31-21 LD BC,5407 
16522  205-178-11 CALL 2994 
16525 201 RET 


Caso você necessite, a rotina de CLS está no endereço 2602 
e SCROLL no 3086. O cursor que aponta a posição do próxi- 
mo RST 16 é o mesmo do PRINT para todas as rotinas da 
ROM que manipulem o vídeo. Ele está guardado nos endereços 
16398 e 16399 (POSPR). 

Lembre-se que as rotinas utilizadas até aqui alteram todos 
os registradores e por isso é conveniente que você, antes de 
chamá-las, salve-as por PUSH se contiverem um dado importan- 
te, para depois restaurá-las por POP. Se o seu TK tem 16 Kb 
ou mais, você dispõe de algumas outras rotinas de impressão 
que são mais rápidas do que as descritas anteriormente. 

Por analogia ao método anterior, podemos escrever uma 
string no buffer do vídeo diretamente, endereçando os códigos 
sequencialmente: 





15414 33-151-64 LD HL,16535 — :HL aponta string 

16517  237-91-12-64 LD DE, (16396) 

16521 19 INC DE :DE aponta ta. coluna da la. linha 
16522 1-14-0 LD BC,14 :BC contém o comprimento 
16525 126 LD A, (HL) :Lê o caráter da string 
16526 18 LD (DEJA :Grava O caráter no buffer 
16527 19 INC DE :Acerta apontador do buffer 
16528 35 INC HL :Acerta apontador de string 
16529 11 DEC BC :Decrementa contador 

16530 120 LD A,B 

16531 177 OR € «Testa se contador=0 

16532 32-247 JR NZ,247 :Se não, repete 

16534 201 RET 


16535 50-46-40-55 
16539 52-0-56-46- 
16543 56-57-42-50 
16547 38-56 
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Porém, o Z-80 tem uma instrução que executa automati- 
camente a transferência de um byte apontado por HL para o 
byte apontado por DE e ainda incrementa os apontadores e 
decrementa o contador: LDI. Observe o mesmo programa mo- 
dificado: 


16514  33-148-64 LD HL, 16532 
16517  237-91-12-64 LD DE,(16396) 
16521 19 INC DE 


16522 1-14-0 LD BC, 14 
16525  237-160 LDI 

16527 120 LD A,B 
16528 177 OR € 
16529  32-250 JR NZ,250 
16531 201 RET 


16532 50-46-40-55 
16536  52-0-56-46- 
16540  56-57-42-50 
16544  38-56- 


Nosso programa pode ser simplificado ainda mais se lem- 
brarmos que o Z-80 também tem a instrução LDIR, que exe- 
cuta um LDI e o repete até BC = 0. Veja agora como ficou o 
nosso programa: 


33-144-64 
237-91-12-64 
19 INC DE 
1-14-0 LD BC, 14 
2237-176 LDIR 

201 RET 


LD HL, 16528 











indica o final de uma linha no buffer do vídeo. Logo, se seu 
texto a ser impresso tiver mais de 32 caracteres, ele deverá ser 
dividido em linhas de 32 caracteres, separando-as com um có- 
digo 118, para que o buffer não se altere. Para escrever, por exem- 
plo: 'MEU TK E UM MICROCOMPUTADOR PESSOAL”, que 
é uma string com 35 caracteres, divida-a em 'MEU TK E UM 
MICROCOMPUTADOR PESS'+118+'O0AL”. Porém, para não 
contrariar sua professora de Português, reagrupe em 'MEU TK 
E UM MICROCOMPUTADOR PES-'+11 8+'SOAL”. 

Note que agora sua string tem 37 caracteres, caso contrário 
seu programa não funcionaria. O buffer pode conter até 768 
caracteres. Não exceda essa quantidade ou você provocará um 
erro irreparável em seu programa. 

Vamos dar agora um exemplo de como mostrar um número 
no vídeo, ou seja, vamos transformá-lo em uma string decimal 
e mostrá-la por RST 16. Você, como exercício, poderá refor- 
mar O programa de modo que a impressão seja feita diretamen- 
te no buffer. 





16514 62-5 LD A+S :Contador para 5 algarismos 
16516 245 PUSH AP alva contador 

16517 229 PUSH HL :Salva O número 

16518 33-1-0 LO HLsL :Calcula o divisor 
16521 61 DEC À 

16522 40-8 JR 2,8 

16524 41 ADD BL,HL 

16525 84 LD D,H 

16526 93 LD E,L 

16527 41 ADD HL,HL 

16528 41 ADD HL.HL 

16529 25 ADD HL,DE 

16530 24-245 JR 245 

16532 235 EX DE,HL :Coloca divisor em DE 
16533 225 POP HL :Reótaura O número 
16534 62-27 LD A,27 :Prepara quociente 
16536 60 INC À :Divide HL por DE 
16537 237-82 SBC HL,DE 

16539 48-45] JR NC,251 

16541 25 ADD HL.DE  sHL=resto e acum.=quociente 
16542 215 RST 16 :Mostra o algarismo 
16543 241 POP AF :Restaura contador 
16544 61 DEC À 

16545 32-225 JR NZ,225 Repete 5 vezes 

16547 201 RET 


Esse programa apresenta HL no vídeo em cinco algarismos 
decimais, mas você pode fundir a cuca um pouquinho e am- 
pliar a rotina para que ela não imprima os zeros à esquerda do 
algarismo. 





Mário José Bittencourt tem 16 anos, faz o 3º ano colegial na Escola Es- 
tadual de Segundo Grau Professor José Sant'Ana de Castro, em Cruzei- 
ro, SP, e pretende iniciar o curso de Processamento de Dados em uma 
Faculdade no próximo ano. 
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SINTA NOS DEDOS ESTA CONQUISTA 
DIGIPLEX 


TRS-80 TRS-80 TRS-80 TRS-8 








Fuja... enquanto é tempo! 


Sergio Orioli Parreiras 


ste jogo foi desenvolvido para 

computadores da linha TRS-80 

e com ele você poderá testar 

como andam seus reflexos e sua 
coordenação motora. 





Fu a IF YZ)8% THEN 90 ELSE 400 
44 Zk=Zk+LX: IF ZX)127 THEN Zí=i 
1" -:-fuga-i- Programa de Serg 
io Orioli Parreiras 


] IF XX)Z% THEN 70 ELSE 80 





5 GOTO 4105 
Zu=Tk-lX: IF ZXO THEN ZX=0 


Funciona da seguinte maneira: você Rio de dantiro, 23 de janeir 5 GOTO 105 


controla um traço e o computador 
outro, sendo que o seu traço não poderá 
se chocar consigo mesmo, nem com o 
do computador e nem com as barras de 
limite. Se você conseguir desviá-lo até 
o término do tempo, ganha o jogo. 

Você pode escolher entre dois níveis 
(fácil e avançado). Para movimentar 
seu traço use as teclas (Q) para subir, 
(A) para baixar, ( <) para a esquerda e 
(>) para a direita. 

Observação: para eventuais 
adaptações, sugerimos a leitura do 
artigo BASIC, três faces da mesma 


o de 1984 
5 CLS: IF CX=0 THEN 130 ELSE PRI 
NT9160,“ fuga” ;9224, STRINGS( 4,191 
),9348,"escolha o nivel:";0404,º 
1) FACIL“59470,72) AVANCADO” 
X=RND(127): YZ=RND(30): Zí=| 
27): BX=RND(3S 
10 AS=INKEYS: IF AS= THEN 40 E 
LSE IF AT<)747 AND AS<)72” THEN 
JE LA=VAL(AS) 

3 CLS: FOR 1X=0 TO 1 
272 SETCIX,0): SET(IX,40) 
FOR 1X=0 TO 40: SET(O, IX 
127, 1%): NEXT: PRINTOBPA, 


20 AS=INKEYS: IF Ab="G" OR Af="q 
” THEN FX=2 ELSE IF AS= OR AS 
“ THEN FX=1 ELSE IF A$=7," TH 
FX=3 ELSE IF A$="." THEN FX= 


BX=B%+1: IF BX)47 THEN BX=47 
95 GOTO 105 
100 B = IF BACO THEN BX=0 
105 V : PRINTO9OI, ;US 
Hosuxs Z=0 THEN 4 
ZX=X% AND BX 
a94,CHR$(23 
2 GOTO 
440 SET z»: GOTO 20 
115 FOR TO 3000: NEXT: AS=T 
NKEY$: CLS: PRINTOAGO, CHR$(23) 4” 
VOCE GANHOU! 11”: GOTO 125 
120 PRINT TAB(B)“TENTE OUTRA VEZ 


125 AS=INKEYS: IF A$="” THEN 125 
ELSE GOTO 5 
430 CX=1: CLS: PRINTOÍSI, “Fuga”; 
a259, 9392,(q) PARA SUBIR 
“;0456,(a) PARA BAIXAR”; 9520, “( 
2) PARA A DIREITA”; 9584,”(() PAR 


linguagem, de Orson Voerckel Galvão, 
publicado em MICRO SISTEMAS 25 ON FX GOTO 30,35,40,45 
números 19 e 20. Ê Yk AS o so 


A A ESQUERDA” 9715,” VOCE GANHA 
O JOGO QUANDO O TEMPO ACABAR”: F 
OR IZ=0 FO 427: SET(I%,4): SETCI 





-4: GOTO 50 %,40): SET(IX,45) 
as Xk=X%+1 135 SETC(IX,96): SET(I%,32): NEXT 
TE OSS SO IF POINT (XX,YX)=-1 THEN CLS: : FOR IX=4 TO 35: SET(O, 1%): SET 
Sérgio Orioli Parreiras tem 13 anos, cursa a sé- PRINTO329, CHR$(23); “VOCÊ BATEU (127,1%): NEXT 
tima série do primeiro grau e tem um DGT- ti”s GOTO 120 ELSE SETC(XX, YZ) 140 AS=INKEYS: IF AS="" THEN 140 


100 desde agosto de 1983. 55 AX=RND(2): ON AX GOTO 60,65 ELSE GoTO 5 








Estrutura do programa 


Linhas 255 caracteres que uma linha pode ter, portanto, para introduzi-la, 
e 5 — 10 — Valor das variáveis; escolha de níveis; perímetro da tela. proceda da seguinte forma: entre com a linha 130 até os dois 

e 20 — Entrada de movimentos do jogador. pontos; tecle RETURN ou ENTER, dependendo do equipamento; 
e 25-45 — Rotina de movimentos do jogador. tecle EDIT 130; pressione X e vá introduzindo a linha normalmente. 
e 50 — Verifica se o traço do jogador se chocou contra ele mesmo; 


caso negativo, seta o movimento do jogador na tela. 
e 55 — 100 — Rotina de movimento do computador. Variáveis 


V% — Variável de tempo. 

X% — Y% — Coordenadas do seu ponto na tela. 

Z% — B% — Coordenadas do ponto do computador na tela. 
1% — Variável de loop. 

A$ — Variável de entrada de movimento do jogador. 

F% — Número da rotina de movimento do jogador. 

A% — Número da rotina de movimento do computador. 


e 105 — Decrementa o tempo e testa o choque do traço do jogador 
com o do computador. 

e 110 -— Seta o movimento do computador na tela. 

e 115 — Mensagem do vencedor. 

e 120 — Mensagem do perdedor. 

e 125 — Qualquer tecla pressionada produz um novo jogo. 

e 130 140 — Instruções. Observação: a linha 130 ultrapassa os 
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Para pequenas e médias empresas, a DIGITUS lança o DIGIPLEX. Um módulo capaz de formar uma rede local de 
multi-usuários, que além de proporcionar o dinamismo de um CPD também simplificará o gerenciamento de sua 
resa. É . 

Com vários terminais executando programas específicos, a implantação do DIGIPLEX proporcionará a sua em- 
presa um aumento da produtividade e qualidade, já que a interligação on line dos terminais permitirá que se 
trabalhe com dados e informações atualizadas. o 

Ligados ao DIGIPLEX poderão estar até 16 terminais intetigentes, fazendo a contabilidade, controle de estoque, 
vendas e produção, malas diretas, estatísticas ou seja, atendendo a todas as necessidades de sua empresa. 


Igi ' 62) é; U | 22 
Hamburgo (05 1024 Quro Preto (031) 551.3013 Poços de Caldas (035) 721.5810 Porto Alegre (0512) 26.1988 334 0660 21 4189 (081) 3269318 221.4995 326.9969 Ribeirão Preto 
(016) 636.0586 Rio de Janeiro (021) 252.9420 262.2661 292.0033 267. 1093 252/9181 541 2345 268 7480 221 8282 288.2650 253.3395 257.4398 222.4515 263,1241 29 | 247.7842 322.1960 316 
- 2 Salvador (071) 2429394 241.6189 Santa Maria (055) 2219588 São Pi 011) 280.2322 815.0099 533.211 231,3922 258.411 222.151 853: 7 Vitória (027) 223.5147 
[1] o a Jd "a ém É K 
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Algarismos romanos 





Antonio Sá Fernandes Palmeira 


Os antigos romanos tinham uma forma toda especial de re- 
presentar os números e, ao que tudo indica, sua matemática 
era bastante elementar, pois desconheciam o zero. Não existe 
uma utilidade matemática para essa forma de representação, 
no entanto, os algarismos romanos são muito usados como al- 
ternativa para fins de numeração de páginas, capítulos, etc., 
e na escola primária o seu ensino é obrigatório. Assim, este 
programa foi elaborado para micros da linha Sinclair com o 
objetivo de auxiliar o aprendizado desses algarismos. 

O programa é composto de dois módulos: Arábicos > Ro- 
manos e Romanos -» Arábicos. No primeiro módulo, o pro- 
grama solicita um número em algarismos arábicos e fornece 
sua representação em romanos. O número deverá ser inteiro, 
pois não há frações em algarismos romanos, e menor que 3999, 
já que a representação em romanos de números a partir de 
4000 é feita com um traço em cima indicando que o número 
deve ser multiplicado por mil. Este detalhe não foi implemen- 
tado no programa. No segundo bloco, o usuário deverá forne- 
cer um número em romanos, a seguir, o programa testará a va- 
lidade desse dado, pelas regras dos algarismos romanos, indi- 
cando como ERRADO, caso haja qualquer erro de sintaxe, do 
contrário fornecerá o número em arábico correspondente. 

Desse modo, se o usuário pressionar a tecla R, o R da pala- 
vra ROMANOS da tela inicial ficará inverso, indicando que o 
programa encontra-se no modo ROMANOS. Se digitarmos IL, 
querendo representar o número 49, o programa indicará ER- 
RADO e pedirá OUTRO? (S/N), sendo que a resposta N fará 
com que se volte ao menu de opções. Teclando A, da palavra 
Arábicos, o programa pedirá este modo de algarismos. Assim, 
se digitarmos 49 será indicada a resposta correta: XLIX. 

A rotina de Arábicos para Romanos, propositadamente co- 
locada numa sub-rotina (li 1000), é facitnente transporta- 
da para outras lógicas e poderá ser útil para numerar páginas de 
um relatório, por exemplo. Para sua utilização, o número em 
arábicos entrará na cadeia N$, enquanto os romanos serão for- 
necidos em R$. A linha 1080 poderá ser traduzida para outras 
lógicas, como uma instrução ON...GOSUB. Experimente fazer: 





Comandando RUN 5000, aparecerá impresso, no canto supe- 
rior esquerdo do vídeo, um contador em algarismos romanos. Na 


56 





elabaração do programa, não houve uma preocupação com 
uma possível economia de memória, mas poderá ser estudada 
uma Otimização com bons resultados. 


20 
LTDA", "SAL 
30 PRINT 


40 PRINT ARISMOS ROMANOS O 
So PRINT PU TECLE RT 
(5) | (RI RABIC! c->> [RIOMANOS” 
LPs Z pe 

THEN GOTO 150 


THEN STOP 
THEN GOTO GD 





INPUT 
PRINT 





NE CNI 
EN cota 
PRINT ar 9,16; “NADO E RRABI 


LET Ag=0" 

GOTO 288 

NEXT N 

IF VAL Néciooa THEN GOTO 


PRINT AT 1+ 


SIGGOG- A GNBO au: 





16; “NUMERO 





TRO ? 
"THEN RUN 
THEN GOTO 290 


1: E" 
: ROMANOS 


NH CADEIA DE ARREI 
I=LEN Ng TO 1 STEP -1 
A=URL N$(I! 
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PRINT 


INPUT 
FRINT 
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THEN GOTO 
DR Ag="C" 
GOTO 2500 



















THEN 















THEN GOTO 
THEN IF ASc>" 


2230 
T" 
















THEN GOTO 
THEN IF Ag 
THEN IF A& 





Goro 
Me 





GALINHA 





OR Ag=" THEN LE 
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Super tela 





Luis Carlos Moreno 





O programa apresen neste artigo foi elaborado a partir 
de programas já existentes em micros da linha Apple. Trata-se 
de um programa relativo a controle de tela, onde a característi- 
ca principal é o chamado coeficiente angular de uma reta (M), 
conhecido em geometria analítica. A partir deste, limitou-se 
uma área u qual deve ser formada, no mínimo, por três pontos 
não colincares. O funcionamento do programa baseia-se na mo- 
vimentação do cursor feita pelo método normal, ou seja, com 
o uso do endereço 14420 consegue-se uma movimentação am- 
pla do cursor e o uso de 4 teclas, a saber: “1”, “2”, “ENTER”, 
“ESPAÇO” (b) 

Os três pontos para definição da área são dados pelas letras 
“AP, “Bº e “C”, na sequência. As teclas têm as seguintes ca- 
racteristicas: “1” — posiciona o primeiro ponto da reta, ou se- 
ja. é o primeiro ponto guardado e fixado na tela, que desenha- 
rá a reta, “2” — posiciona o segundo ponto da reta e traça a re- 
ta entre O primeiro ponto e este; “A” — armazena O primeiro 
ponto da região a ser pintada; “B” — armazena o segundo pon- 
to da região a ser pintada; “C” — armazena o terceiro ponto a 
ser pintado e, logo em seguida, pinta a região definida pelos 


reg ai é 


em 





região 








Figura 1 


pontos; “ESPAÇO” (b) — há uma inversão no sistema, ao in- 
vés de ser colocado um comando SET, coloca-se um comando 
RESET e o processo se fará da mesma forma; “ENTER” — vol- 
ta à posição original, isto é, usa-se o comando SET. 


MÉTODO USADO NA PROGRAMAÇÃO 


Para a reta foi usado o sistema normal de uma equação de 
reta, onde determinou-se a equação a partir dos pontos obtidos 
em “1” e “2”. A única diferença é o contorno — elaborado quan- 
to à descontinuidade da tela. Para isso formaram-se duas regiões 
distintas com seus respectivos coeficientes angulares (figura 1). 

Para pintar a área foram determinados os valores XA, XE, 
YA, YE característicos dos três pontos “A”, “B” e “C” obti- 
dos pelas coordenadas (X,Y), determinando-se os coeficientes 
relativos às três retas Mab, Mbc e Mca. Foi fixado um ponto 
XE e variou-se outro ponto desde YE a YA, determinando-se, 
então, o coeficiente angular M”. Comparou-se Mº com os coefi- 
cientes Mab e Mca de modo a preencher a área pré-estabeleci- 
da, perceba que a variação foi entre XE — XB. Para a região 
contida entre XB e XA usa-se o mesmo método, porém deve- 
mos fixar XA, determinando-se M' e comparando-se com Mbc 
e Mca. (Figura 2) 

Devemos observar que O programa não limita-se apenas ao 
que foi demonstrado, podendo incluir casos particulares como 
XB = XE, XB = XA etc. Observe que A=(XAYA): B=(XB, 
YB)e C=(XC,YC). 





Luis Carlos Moreno está cursando o 5º ano de engenharia elétrica na Es- 
cola de Engenharia Mauá, em São Paulo. 








5 "emma SUPER TELA munum 
7 * LUIS CARLOS MORENO 

8 * SAO PAULO - CAPITAL - 19/7/1984 

10 CLEAR 200 

20 DIM CS) 

30 ON ERROR GOTO BO0O 

50 CLS:SD=0:DL=47:G0TO 2000 

100 * FQUACAO DA RETA 

128 IF Xxi=x2, 250 

130 M=(Yi-Y2)/(X2-X1) EM=ABS CH) 

195 IF M>.5 ,250 ELSE 140 

140 IF X1-X2 « O,T=X12H=X2:60TO 150 ELSE T=X2:H=X1 
150 FOR G=T TO ABSCH) 

160 YC=( X2Yi-XimY2)-Ga(Yi-Y2)2YC=YC/(X2-x1) 

470 IF CO=0,SETCG,YC) ELSE RESETCG, YC) 

180 NEXT 6 

200 GOTO ABO 

250 IF Yi(Y2,T=YizG=Y2 ELSE IF YiDY2 ,Tey2sG=yi ELSE TevisG=ro 
260 FOR 0=7 TO 6 

270 KC=(X2RVI-XINYZ)-ONCX2-XI)EXCEXC/CYI-YD) 

280 IF C0=0, SET(XC,O) ELSE RESET(XC,O) 

290 NEXT O 

400 * COLOCACÃO DOS PONTOS NA TELA 

480 SET(SD,DL) 

485 PRINTOAZ,“P2(”;95S,”,"D60, "5 

A90 K=PFEK (14420) 

495 PRINTOSO, SD, 956,47-DL ; 

s00 IF K=A L=-1260SUB 700:G0T0 490 

s40 IF K=L6 L=1:GOSUB 70026070 490 

520 IF K=32 S=-1:60SUB 90Dz:60TO 490 

sao IF K=64 S=1:60SUB 90026070 490 

535 IF K=128,6000 

597 IF K=2,9600 

538 TF K=4,3600 

SA0 ATOINKEYSIIF AS=“A",GOSUB 7000 

sS0 TF Af="B”,GOSUR 7100 

560 LE ná="0", GOSUB 7200 

570 IF K=1,C0=0 

sBO GOTO 490 

700 DL=DL+L:IF DLCA ,DL=47 ELSE IF DL)47,DL=4ELSE IF C0=2,3500 E 
LSE 3000 

900 SD=SD+S:IF SO(0,S0=127 ELSE IF SD)427,5D=0:PRINTOSS,” Ed, 
ELSE IF CO=2,350DELSE 3000 

1000 GOTO 490 

2000 CLS:FOR I=0 TO 127:SET(I,3):NEXT 

2010 GOTO 480 

3000 1F POINT(SD,DL) 3550 

3500 RESET(U,0):U=5D:0=DL:SET(SD,DL):RETURN 

3550 RESET(U,0):SET(SD, DL) :U=12770=0:RETURN 

3600 IF K=2,SET(SD,DL)3X1=SD:Yi=DL3=12720=0:PRINTO6,” 
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Super tela 


NUNCA É TARDE PARA LER 


sistéliçe 


Se você 

não adquiriu 
MICRO 
SISTEMAS 
na data certa, 
nós lhe damos 
uma segunda 
chance! 


e Seu pedido pode ser feito 
por carta, indicando 


quais os números 
atrasados que você quer. 





e Acrescente a este um cheque 
cruzado, nominal à ATI 
Editora Ltda., no valor 

correspondente ao seu 
pedido. 


e E não se esqueça de incluir 
o seu endereço para 


que nós possamos 
fazer a remessa. 


Endereços: 
Rua Oliveira á 
— CEP 01433 — Tels.: (011) 853-3800, 853-7758 e 881-5668. 


Dias, 153 — Jardim Paulista — São Paulo/SP 


Av. Presidente Wilson, 165 — grupo 1210 — Centro — Rio 
de Janeiro/RJ — CEP 20030 — Tels.: (021) 262-5259, 262- 
6437 e 262-6306 


1(7,X1,08,7,7;47-Y1;913,7)";2G0TO 490 
3700 IF K=4,X2=5D:Y2=DL GOTO 128 ELSE 490 


6000 
7000 
7100 
7200 
zano 
7350 
7380 
7400 
74so 
7500 
7550 
7580 
7590 
7600 
76140 
76820 
7430 
7632 
7633 
7634 
7635 
7440 
7480 
7700 
7710 
7715 
7720 
7725 
7728 
7730 
773? 
7735 
7740 
7750 
7760 
2770 
7780 
7785 
7790 
7795 
7800 
z810 
7820 
7830 
7840 
8ooo 


Co=2:poTO 490 

P(1)=5DsQ(1)=DLEPOKE 15990,253:RETURN 

P(2)=5D3Q(2)=DL:POKE 15391,253:RETURN 

P(3)=SD:0(3)=DL:POKE 15392,253 

FOR I=1 TO 2 

IF P(I)C)D OR GC1)(30,7400 

NEXTEGOTO 7795 

XE=PCL)EXA=PCIDEYE=QCL)EVA=QCI) 

FOR I=í TO 3 

IF PCT)C=XE,XESPCIDEA(3)=1 

TF PLIDI=XA,XA=PCT)SA(2)=T 

IF QCIICYE,YE=0CI) 

IF CIDA, YA=QCI) 

NEXT 

FOR I=4 TO 3 

IF A(3)=I OR A(2)=1,7630 ELSE A(5)=1 

NEXT 1 

MCSI=CQCA(Z))-QCACI)))/CPCAÇDID-PCAÇIID) 

IF PCA(S))=PCA(Z)) R=12EGOTO 7640 

HCZI=CALACZ)I-ACAÇS)D)/CPCACDI)-P ACD) 

IF PCACS)D=PCA(3)),7795 

MOBIS COCACS)I-QCAÇI)D)/CPCACS))-PCAÇIID) 

IF MC4)CMC3) ,HASH(3) MESMOS) ELSE MA=HCA)2MESHCI) 

FOR I=XE+4 TO PCACS)) 

FOR J=YE+4 TO YA 

N=€I-QCAÇI)D)/CI-PÇA(ÇII)) 

IF NC=HE OR N)=MA,7730 ELSE IF C0=2,7720 

SET(I, J):GOTO 7730 

RESETCI, J) 

NEXT), 1 

IF R=i2,R=0:60T0 7795 

IF MCA)ÍMCZ),MESNCA) EMASHCD) ELSE MESH(Z) EMASNCA) 

FOR I=P(A(S)) TO XA-S 

FOR J=YE+4 TO YA 

NE CJ-QCAÇZ)D/CI-P CAI) 

IF NC=ME OR N)=MA,7790 ELSE TF C0<2,7705 

SET(I, J)3GOTO 7790 

RESETCI, 3) 

NEXT 3,1 

PRINTA3O, 

FOR 1=4 To à 

P<T)=0 

ac1)=0 

NEXT 

GOTO 490 

PRINTAZA, “MESHO PONTO 112;2FOR I=1 TO 300:NEXTIPRINTAZA 
“RESUME 490 


Tels.: (021) 
RT AE Dn 
fase par A) 
E tda 





Des 
os: 
mattos, 
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Mire certo e... GOLF! 





Silvio Cavalcanti de Araújo 


ste jogo é extremamente simples, mas muito interessante. Nele, 

o jogador terá que acertar o maior número possível das dez ta- 

cadas a que tem direito, em cada grupo de jogadas. Para isso, 

ele terá que fornecer a força da sua tacada, que varia de O a 62. 

Essa força, nada mais é do que a quantidade de espaços que a bola 

(o) deverá percorrer para cair no buraco. Se a força for maior ou menor 
do que a necessária, a bola não cairá e o jogador perderá a tacada. 

A pista de jogo é formada pelo caráter 191. O buraco é aleatório e 





“Golf 





HEN 380 


RINTABP6,“0 
R X=16320 TO 16383:POKE X,491:NEXT 
3) BsSRND(62) 
4 B+16320 
50 POKE 5,32 
60 PRINTaL, “QUAL A FORCA” 
62 PRINTOI3O,”TACADA No.” ;I:PRINTOS3,P;“PTS.” 
63 INPUT F 
65 IF F)63 THEN PRINTEPRINTEPRINTEPRINTIPRINTIPRIN 
jd Jogada ilegal, tente de novo 
«“2FOR T=í TO 1500:NEXT:GOTO 10 
70 C=F+16320 
73 W=F+16256 
90 FOR Y=16256 TO WIPOKE Y,111:POKE Y-1,32:FOR T=1 
TO S:NEXTENEXT 
100 VI=5-44 
140 IF W=VI THEN FOR T=í TO 400:NEXT T:POKE 5,111: 
POKE VI, 322P=P+í 
120 PRINTO 473,“0UTRA VEZ 24 
130 R$=INKEYS:IF R$="” THEN 130 
140 IF R$=“n” OR R$="N” THEN END 
450 GOTO 7 
200 CLS:PRINT CHR$(23) 
240 PRINTESPRINT” (C) SILVIO ARAUJO. (1984)“:PRI 
NTEPRINTEPRINTOEX O FI CCI NA -- RECIFE ux“:PR 
INT:PRINTSPRINTO GOLFÃJI! 


220 PRINT:PRINTEPRINTO TECLE “CHR$(34)“R“CHR$(34) 
* PARA INSTRUCOES,”2 

230 PRINT” E “CHR$(34)“J”CHR$(34)” PARA JOGAR...” 
240 T$=INKEYS:IF T6="" THEN 240 

250 IF T$="R” OR T$="r” THEN 300 


MICROMAQ 


fornecido por RND de 62. 
Se o jogador quiser saber previamente o número do buraco, deve in- 
serir a linha: 61 PRINT 16, “B="B 





Sílvio Cavalcanti de Araújo tem 15 anos e está cursando a 18 série do 
2º grau no Colégio Salesiano, em Recife. Ele é possuidor de um DGT- 


100, onde desenvolve seus programas. E 


260 IF T$="J” OR T$="j” THEN GOTO 5 
70 GOTO 240 
2PRINT CHR$(23) 
GOLF! 


PRINT:PRINT:PRINTYESTE JOGO CONSISTE EM ACERTA 
MAIOR NUMERO POSSIVEL DE TACADAS 
330 PRINT“PARA ISTO, VOCE DEVE DIGITAR A FORCA DA 
TACADA QUANDO REQUISI-TADA PELO MICRO.C(NO MAXIMO 
62)” 
340 PRINTSPRINT“TECLE J PARA JOGAR 111% 
350 JS=INKEYS:IF J$="" THEN 950 
360 IF J$="J” OR J$=“j” THEN P=0:G0TO 5 
370 GOTO 350 
380 CLS 
390 PRINTEPRINT:PRINT 
400 IF P=0 THEN PRINT :PRINT“VOCE FEZ O ( ZERO ) P 
ONTO. NAO DESANIME. TENTE NOVAMENTE.” 
440 IF P)6 AND P<iO THEN PRINTOVOCE FEZ UMA OTIMA 
CONTAGEM DE PONTOS. CHEGO 
U BEM PERTO DOS DEZ (PONTUACAO MAXIMA). 
TENTE DE NOVO.”: PRINT“VOCE FEZ”;P;”PON 
os.” 
420 IF P>O AND P(<S THEN PRINTO...ATE* QUE NÃO FOI 
TAO RUIM ASSIM. MAIS P 
ODE-SE MELHORAR. TENTE DE NOVO...”ZPRINTYVOCE FEZ 
sP; “PONTOS.” 
430 IF P=5 OR P=6 THEN PRINT/VOCE FEZ”;P;“PONTOS. 
NADA 
MAL PARA UM INICIANTE...” 
440 IF P=10 THEN PRINT“VOCE FEZ”;P;”PONTOS tt 
MELHOR QUE 1 
Sso, SO” DOIS DISSO. 
MAS EU ACHO QUE VOCE NAO E” CAPAZ DE REPETI-LO. 
QUER APOSTAR ? TENTE DE NOVO.” 
450 PRINT:PRINTE:PRINT”QUER TENTAR OUTRA VEZ ? «5 
/N) 9” 
460 SS=INKEYS:IF S$=7” THEN 460 
470 IF S$="N” OR 5$="n” THEN END:ELSE:P=D:GOTO 1 
500 * PROGRAMA DE SILVIO CAVALCANTI DE ARA 
UJO, 
EM 27 / 03 / 4984. 
DGT-1000 / 46 Kb 
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e Setembro, 92 106 

















Saiba porque oCirandão 
se ligou tanto 

no Modem UP-1275VTX 

da Parks. ,gowa 























O Modem UP-1275 VTX da Parks é o E um aparelho de pequenas dimensões 
modem homologado pela Telebrás. Depois de  (15x25cm), peso reduzido e de fácil instalação. 
todos os testes de qualidade realizados pela Recebe sinais em 1200 bps e transmite a 1200 ou 
empresa, ele mostrou que é o mais durávele de 75 bps. Além de tudo, tem alta durabilidade e 


maior resistência. faz você ficar na linha por muito mais tempo e 
O Modem UP-1275 VTX da Parks é a tem muito mais facilidade de reposição de 

maneira mais simples, rápida e durável de você peças. 

ligar o seu microcomputador ao Serviço Receba o Serviço 


Cirandão e Vídeotexto. Basta uma linha Cirandão ou Videotexto em 
telefônica comum para completar a ligação e sua casa, empresa, 

ter ao seu alcance as mais diversas informações consultório ou escritório. 
de interesse doméstico, empresarial e O Modem UP-1275 VTX 
profissional. da Parks dá o acesso. 





MODEM UR:I275 VTX 














REDE 
TELEFÔNICA 








ES 

É AUTOMÁTICO: Você compra o Modem 
UP-1275 VTX da Parks e ganha uma inscrição 
para ingresso no Serviço Cirandão da Embratel. 








Matriz: Porto Alegre - RS - Av. Paraná, 2335: Fone (0512) 42-5500, Telex (051) 1043 e Filiais: São Paulo:Fone (Ol!) $72-7171, Telex (011) 23-141 * Curitiba 
Fone (041) 232-1814, Telex (041) 5406 * Rio de JaneiroFone (021) 240-7443, Telex (021) 33-621 * Recife-Fone (081) 325-2123, Telex (081) 4248 * Representantes: 
Belo Horizonte Fone (031) 226-5722 e Brasília: Fone (061) 272-1825 * Blumenau Fone (0473) 22-6248 * Campo Grande:Fone (067) 383-5331 e Florianópolis 
Fone (0482) 221525 e CuiabárFone (065) 321-5020 * Uberlândia: Fone (034) 234-4600 * Salvador: Fone (071) 249-9744, 











apple apple apple apple ap 








Galaxy 





Luciano Demarchi 


Galaxy é um jogo bastante simples, para os micros da linha  nhas da tela, um ponto. Caso você tenha acertado o número da 
Apple. O objetivo do jogo é destruir a nave inimiga, que passa linha, terá conseguido, então, os 500 pontos. Mas lembre-se: 
na parte superior da tela, utilizando um canhão laser, que fica para que os inimigos sejam destruídos você não pode errar três 
na parte inferior. Use a tecla 1 para atirar. A cada tiro certo vo- tiros numa mesma sequência ou o jogo terá que ser recomeça- 
cê ganha quatro pontos e a cada erro perde dois. Se você con- do. Boa sorte e boa pontaria! 
seguir destruir o inimigo, terá a chance de obter mais 500 pon- 


tos. Para isso, basta escolher três números inferiores a 39 e di- 





gitá-los. Após a sua escolha, aparecerá, em alguma das 39 li- Luciano Demarchi tem 14 anos e estuda atualmente DB sistemas. 


Ss GOTO 1500 
HOME 
Cc=-0 
GR 
COLOR= 15 
HLIN 0,7 AT 21 
VLIN 21,20 AT & 
HLIN AT 
HLIN 22 4753 
VLIN 33 AT 
VLIN 33 AT 
100 HLIN 19,21 AT 3 
110 VLIN 29,30 AT 2 
130 B = SA = 39 
135 D = 0 
140 R = INT (10 * AND (1)) 
150 IF R= 1 DRR=10THEN GOTO 
170 
160 GOTO 140 
170 Av A-S 
180 GOSUB 900 
185 E = PEEK ( - 14384) 
190 IF A = 5 THEN GOSUB 250 
195 IF E = 177 THEN GOTO 400 
200 GOTO 170 
)C=C+1 


IF As THEN NORMAL E VRINT 
: GOSUB 2 END é PRINT "O BONUS SERA GANHO D 
NORMAL A SEGUINTE MANEIRA: " 
SOTO 10 20 PRINT “OUANDO VOCÊ DESTRUIR 
COLOR= 3: PLOT A,3: SEU INIMIGO APARE- CERA NA 
TELA LIMA MENSAGEM EM DUE VOC 
IF A = 38 THEN A = 37 E  DIGITARA 5 NUMEROS" 
PLOT A + 1,3 PRINT “FEITO ISTO TERA DISP 
F = PEEK « ARO DE 3 TIROS com a FI 
RETURN NALIDADE DE ACERTAR O PONTO 
TEXT : ALEATORIO COLOCADO NA T 
PRINT ORA VOCE TERA CHAN ELA” 
CE DE GANHAR": PRINT ) PRINT : PRINT “*OBS: O NUME 
NTOS DE BONUS": PRINT RO NAO PODERA SER MAIOR DUE 
DIGITAR 3 NUMEROS": PRINT " 39" 
FICAR DE OLHO NA Ar PRINT : PRINT "SE VOCE ACER 
INPUT O,W,U TAR O PONTO SERA RE- 
IF O >390RW>390RU COMPENSADO COM 500 PONTOS " 
39 THEN GOTO 1100 1650 GET AS 


 B= INT (39 * AND (1)) 1665 HOME 


GR 1670 INVERSE 
COLOR= 4 1580 PRINT CONTAGEM 

PLOT 0,8 DE PONTOS *: NORMAL 
GOSUB 1460 2 PRINT 

HLIN 39,0 AT W 1690 PRINT “A CONTAGEM DE PONTOS 
BOSUB 1440 SERA FEITA DA SE- GUINTE M 


sinclair sinclair sinclair sinc 








Juros descontados 





Fernando Cesar Raimundo 












1 REM PROGRAMA DE JUROS DESCO TE:* 140 PRINT “--->CR$ “ivem x 
NTADO SO INPUT M 150 PRINT AT 21,2, "AOUTRO CALC 

Ss CLS 60 PRINT “---»CR$ ":;M ULO (S/N) PU 

10 PRINT “ENTRE COM A TAXA:"; 70 PRINT ,,"NºDE MESES 7:" 160 IF INKEY$=5' THEN RUN 

20 INPUT T 80 INPUT ME 170 IF INKEY$="N”" THEN GOTO 300 

30 PRINT Tim" 90 PRINT ME 175 PRINT AT 21,2; “PAOUTRO CALC 





9S IF TsME>=100 THEN GOTO 200 ULO (S/N) 
100 LET X=(T+ME/(100-(T4ME))) 41 190 GOTO 1 
o 200 CLS 


42 PRINT | "ENTRE Com O MONTAN 






















Juros Descontados 110 PRINT ,, “COEFICIENTE x 210 PRINT AT 11,5; “CALCULO IMPO 
115 PRINT ,, "BASE RO MES:“;X/ME SEL aa sO 
Nesses tempos de crise, não podemos “120! LET y=((M5x) 7100) 300 CLS Date 
descuidar de nossas economias. Por isso, 124 PRINT ». "VALOR DO JURO DE 310 PRINT AT 11,7;"T CHA UU... 
i ram i 1 PR NT ” ->CR$ “;Y 320 STOP 
aproveite 6350 prog a, desenvolvido 156 PRINT ,: VALOR A RECEBER AP 330 SAVE “JUROS DESCONTADO 
num TK8S5, e faça uma previsão antes de OS “;ME;" MÉSES-” 340 RUN 





aplicar o seu rico dinheirinho. 


COLOR= O: HLIN 0,10 AT COLOR= 9 
COLOR= PLOT 5,8: COLOR= O HLIN 39,0 AT O 
: PLOT S,B- 1 GOSUB 1460 
=B+1 2 COLOR= 8 
= PEEK (-1 270 HLIN 39,0 AT U 
€— 16336) + 16336 275 GOSUB 1460 
, IFB=WORB=UORE=pD THE 
IF B = 20 THEN LET B = 5; LET GOTO 1400 
A = 39: GOTO 700 2 HOME 
GOTO 270 2 PRINT "VOCE ERROU OS TRES T 
COLOR= 10 IROS” 
410 VLIN 28,3 AT 20 300 GOTO 1450 
420 F = PEEK ( — 16336) HOME 
430 IF A =200RA=21 THEN GOTO Z=27+ 500 
soo 2 RINT “PARABENS VOCE ACERTO 
440 GOSUB 900 
450 COLOR= O: VLIN 28 
z-2 
460 E = PEEK ( — 16368) 
470 GOTO 170 
500 COLOR= O FOR Y = 1 TO 500 
St HLIN 0,39 AT 3 OM = PEEK ( — 16336): NEXT Y 
520 FORG=1TO2 
S30 F= PEEK (-1 PEEK O RETURN 
€ — 16336) - HOME 
, 01 GOSUB 2000 
» NEXT 6 PRINT "VOCE ESTA EM PLENA 6 
SSO Z2=27+6 UERRA ESPACIAL SUA OBRI 
560 A = 38 SACADO E NAD DEIXAR A NAVE IN 
565 D=D+1 I- MIGA POUSAR 3 VEZES NA 
566 IF D = 10 THEN GOTO 1000 Base » 
570 GOTO 140 20 PRINT “QUE ESTARA LOCALIZAD 
700 REM A A SUA ESQUERDA. " 
710 FORG=1 TO1O PRINT : PRINT "USANDO UM CA 
720 F = PEEK ( - 16336) + PEEK NHAO DE LASER (LOCALIZADO 
€— 16336) - PEEK ( - 16336 ABAIXO DA TELA) VOCE DEVERA 
) + PEEK ( — 16336) DESTRUIR A NAVE INIMIGA O 
730 NEXT 6 VE PASSARA NA PARTE SUPE 


B 
F 


PRINT “AGORA VOCE TEM “3 


2010 


2080 
zoso 
2060 
2065 
2070 
2080 
3000 
3010 


PRINT 
CADA TIRO DUE VOCE D 
ER PERDERA 2 PONTOS E CADA V 
EZ QUE VOCE ACERTAR A NAVE 
GANHARA 4 PONTOS" 
PRINT : PRINT: PRINT: PRINT 
“APERTE QUALQUER TECLA P/ CO 
MECAR A JOGAR" 
GET As 
soro 10 
REM 
INVERSE 
FOR G = 1 TO SO 
PRINT" INTERGALACTEA 
INTERGALACTEA ": NEXT 
6 
FOR G = 1 TO 1000: NEXT 6 
Home 
GR 
COLOR= 10 
HLIN 9,28 AT 34 
HLIN 9,28 AT 33 
HLIN 12,25 AT 32 
HLIN 12,16 AT 31 
HLIN 12,16 AT 30 
HLIN 12,16 AT 29 
HLIN 12,14 AT 28 
HLIN 12,16 AT 27 
HLIN 5,17 AT 26 
HLIN 21,25 AT 31 
HLIN 21,25 AT 30 
HLIN 21,25 AT 29 
HLIN 21,25 AT 28 
HLIN 21,25 AT 27 
HLIN AT 26 
N= Sé 
N=N-1 
IF N = 17 THEN GOTO 3200 









Sim, desejo receber 


U a fita MICROBUG, pela qual pagarei Cr$ 20 mil + Cr$ 2.300,00 referente a 
despesas do correio. 

[) os números atrasados de MS, pelos quais pagarei o preço de Cr$ 1 mil* por exem- 

plar. Me interessam as edições: [] MSnº31 [D Msnº 33 

Dmsnºa2 OD msnoas 

TOTAL: Cr$ 













EM FITA 


O projeto MICROBUG, desenvolvido pela equipe do 
CPD de MS, foi criado para auxiliar o entendimento e 
a exploração dos recursos existentes nos micros da 
linha Sinclair, Sua construção, passo a passo nas 
páginas da revista, tem tido importância decisiva no 
aprendizado e desenvolvimento dos usuários na 

em linguagem de máquina. 

Devido ao enorme sucesso do MICROBUG, refletido 
nas inúmeras cartas que temos recebido, a ATI 
EDITORA LTDA. optou por oferecer a versão 





740 IF C=3 THEN GOTO 740 
750 RETURN 
760 PRINT “VOCE FEZ ";2;” PONTOS 


770 FOR G = 1 TO 1000; NEXT 6 

775 TEXT 

780 HOME 

790 INVERSE : HTAB 10: VTAB 10: PRINT 
“ INTERGALACTEA" 

800 PRINT : PRINT : PRINT “QUER 
JOGAR NOVAMENTE (S/N) * 

BIO GET AS 


Galaxy 


62 


RIOR DA TELA” O COLOR= PLOT N,3 

GET As 3 COLOR= PLOTN + 4,3 
HOME 3160 GOTO 3130 

INVERSE COLOR= 8 

PRINT * coman AT Is 

Dos “7 NORMAL 2 AT AS 

2 PRINT O 1 TO 2500: NEXT 6 
PRINT "VOCE DEVERA USAR A T 3500 HOME : NORMAL 
ECLA "1º P/ ATIRAR" 

INVERSE 45000 REM LUCIANO DEMACHI 
PRINT" 

us 





MICRO SISTEMAS, fevereiro/85 


integral do MICROBUG. 

Para tal, foi contratado um estúdio especializado, 
garantindo um padrão de gravação profissional e 
uma embalagem inviolável que você irá apreciar. 
Como a documentação do MICROBUG começou em 
MS nº 31, aqueles que adquirirem a fita terão a 
OPORTUNIDADE DE COMPRAR OS 
EXEMPLARES QUE NÃO POSSUAM POR UM 
PREÇO ESPECIAL. Aproveite esta chance e 
usufrua logo do MICROBUG em sua forma integral. 
Preencha o quadro ao ladoe mande já o seu pedido. 
TIRAGEM LIMITADA, 






NOME: 
ENDEREÇO: 
CIDADE: 














Para tal, estou enviando um cheque nominal à: ATI Editora Ltda. (Projeto MICROBUG) 
Av, Presidente Wilson nº 165, grupo 1210 — Centro — CEP 20030 — Rio de Janeiro, RJ. 
* Despesas de reembolso excluídas 

0BS.: Os produtos acima podem ser adquiridos diretamente em nossos escritórios do 
Rio ou São Paulo sem despesas de correio. 














Quantos bytes? 


Saiba exatamente quantos bytes de memória um 
programa ocupa com esta simples linha: 


:ZZ6="TAMANHO DESTE PROGRAM 
“sZL=(PEEK (16634) x256+PEE 
KC1L6633))-(PEEK CL 6549) 4256+PEEK ( 
16548))-103:PRINTAZ60, ZZ6;ZZ;” B 
YTES“:FOR I=í TO 2000:NEXT I 


O procedimento também é bem fácil: depois de co- 
locar esta linha O no seu programa, chame-a com RUN 
O. E se por acaso seu programa já possua uma linha O, 
não tem importância, é preciso apenas arrumar um lu- 
gar para colocar esta dica. 


Linha SINCLAIR 
Arte oriental 


Entre no mundo 4 REM TAPETES PERSAS 
1 . 6 REM AUTOR: RUY C. GONCALVES 
das mil e uma noites: 8 REM AGOSTO DE 1984 - PORTO ALE 
coloque esta dica no Rre-Rs 
seu micro e veja uma 10 CO qq o 
série interminável de 30 For 1=1 To 5 


belos tapetes persas 40 LET A=INT (RNDx11) 


SO LET B=INT C(RNDx11)+128 
voando na tela. 60 LET TS=TS+CHRS ASCHRS B 
70 NEXT T 
80 FOR I=í TO 44 
90 PRINT T$; 
400 NEXT T 
140 FOR I=1 TO 100 
420 NEXT 1 
130 GOTO 10 





Dirceu Pivatto-RS 


Ruy C Gonçalves-RS 


Se você tem pequenas rotinas e programas 
utilitários realmente úteis tomando poeira em 
seus disquetes ou fitas, antecipe-se aos piratas e 
trate de divulgá-los. Envie-os para a REDAÇÃO 
DE MICRO SISTEMAS — SEÇÃO DICAS: Av. 
Presidente Wilson, 165 — Grupo 1210 — Centro 
— Rio de Janeiro — RJ — CEP 20030. Não 
esqueça de dizer para qual equipamento foram 
desenvolvidos. Desta forma sua descoberta 
poderá ser útil para muitos, em vez de 
desmagnetizar-se com o tempo em suas fitas e 
disquetes. 


Linha SINCLAIR 


Dissolvendo o vídeo 


Veja a tela do seu micro ir se dissolvendo aos pou- 
cos (igualzinho à dica Derretendo o vídeo, para a linha 
TRS-80, publicada em MS nº 34, pág. 72), com esta di- 
ca em Assembler. Para usá-la, entre primeiro com o MI- 
CRO BUG para criar uma linha REM com 48 bytes. 
Depois, digite estes códigos: 


16514 FD 364 21 00 2A OC 40 0E 
16522 48 06 20 23 7E FE 80 20 
16530 03 9E 3F 77 B7 28 05 35 
16538 FD 36 21 01 10 ED 23 OD 
16546 20 E7Z FD 7E 21 B7 20 DB 
16554 C3 FS 08 80 B2 AF AZ 80 


Agora, em vez de dar um CLS, digite LET L= USR 
16514 e comprove que efeito! Por fim, um detalhe 
muito bom para o pessoal que vai incrementar esta ro- 
tina nos seus programas: ela pode ser colocada em qual- 
quer posição de memória. 





Mário José Bittencourt-SP 


Linha TRS-80 


Faça uma reta 


Os usuários da linha TRS-80 agora já podem traçar 
uma reta na tela do seu equipamento, é só digitar esta 
dica: 


2000 INPUT XL, Yí,X, YICLS 
2040 IF X-Xí=0 M=500 ELSE M=(Y-Y 
1)/4X=X1£) 

2020 IF ABS(M))£ THEN 2070 

2030 FOR X2=X1 TO X STEP SGNCX-X 
1) 

2040 SET(X2, Yi+MEXD=MEXL) 

2050 NEXT X2 

2060 END 

2070 FOR Ye=Yí TO Y STEP SGNCY-Y 
1) 

2080 IF M<)500 SETCC(Y2-Y1)/M+X4, 
Y2) ELSE SET(X14,Y2) 

2090 NEXT Y2 

2100 END 


Henrique Monteiro Cristóvão-ES 


TK 2000 
Alfabeto grego 


Reproduza os caracteres do alfabeto grego no seu 
TK-2000 com este programa que, inclusive, pode ser 
usado como sub-rotina em um editor de textos. 


20 DIM RAÁ(C24S) 
30 FOR U=í TO 24:READ RACU)INEXT 
U 
40) DATA 8192,8320,8448,8576,8704 
,8832,8960,9088,8232,8360,8488,8 
616 
50 DATA 8744,8872,9000,9128,8272 
,8400,8528,8656,8784,8912,9044,9 
168 
60 HOR:HCOLOR=3:HOME: I=í 2L=9 
70 VTAB S:HTAB 42:PRINT/LETRAS GR 
EGAS:“2PRINT:FOR U=zí TO 392PRINT 
="; 2NEXT U 
80 G0SUB 300:N=0 
82 FOR C=1í TO 27 STEP 2:N=N+í 
IF N=27 THEN 98 
IF C=27 THEN L=L+2 
IF C=27 THEN 82 
FOR J=I TO 1+7 
BA=RACL)+C-í 
POKE BA+ÍL024%(J-I),MCJ) 
NEXT J:I=I1+8:NEXT C 
VTAB Á1B:HTAB 18:PRINT“ORLANDO 
MOURA“ ZPRINT TAB(148);7BELEM, AGO 
ST0/847 
100 END 
300 REM xx SIMBOL xx 
302 DIM M(200) 
304 FOR U=í TO 1P2:READ MCU)ENEX 
TU 
306 DATA 0,64,44,18,18,44,0,0,48 
,72,72,36,68,66,50,2,0,68,42,16, 


14,16,16,0,48,8,16,60,34,34,28,0 . 


,0,24,36,4,8,4,36,24,0,26,38,34, 
34,34,92,92 

308 DATA 4,56,4,8,16,32,36,24,0, 
60,66,66,126,66,60,0,0,0,128,4,4 
,20,12,0,2,18,40,7,10,82,98,0,2, 
5,8,8,20,96,66,0,0,18,30,18,18,8 
2,34,2 

310 DATA 32,64,66,34,34,18,12,0, 
2,28,2,12,2,50,76,32,0,0,28,34,3 
4,34,28,0,0,126,36,36,36,36,0,0, 
0,24,36,36,20,4,4,0,64,60,2,26,3 
4,34,28,0 

312 DATA 0,252,18,164,16,20,24,0, 
0,0,226,37,36,36,36,24,0,48,74,7 
4,60,8,8,8,2,69,40,16,40,68,1430, 
0,130,85,84,56,16,16,16,0,0,0,2, 
65,65,73,54,0 

320 RETURN 





Orlando Moura-PA 


m es wu A . 
Linha SINCLAIR 
Curvas incríveis 

Faça uma surpresa aos seus amigos com esta dica 
que traça curvas mirabolantes: é só rodá-la, responder 
às perguntas que o programa faz e aguardar um pouco 
porque esta dica é lenta. 
1 FAST 
10 PRINT “STEP?2” 
20 INPUT S 

PRINT “A INICIAL?” 

INPUT Q 

PRINT “A FINAL?” 

INPUT W 

CLS 
i£O0 FOR A=Q TO WU STEP S 
120 PRINT AT 21,25;"A=";A; 
130 FOR X=i TO 43 
140 LET Y=(A/2)x(EXPC(X/A)+EXP (=X 
/8)) 
150 LET D=24+A-Y 
160 LET G=X+24 
170 LET H=43-X 
180 IF G)63 OR H<O THEN GOTO 230 
190 IF D<2 OR D>42 THEN GOTO 230 
200 PLOT 6,D 
210 PLOT H,D 
eo) NEXT X 
230 NEXT A 





Adriano Pascoal Pereira-RJ 


Programas em segurança 


De repente, um descuido e... pronto! Lá se foi aque- 
le programa que era tão bom... Quantas vezes isso já 
aconteceu? Para evitar esta triste situação, tenha sem- 
pre cópias de segurança dos seus melhores programas. 
Esta dica faz para você exatamente isto, e ainda tem 
uma vantagem: transmite uma mensagem, ao final da 
cópia ou carregamento, informando se está tudo ok ou 
não. Ela só tem uma restrição: só pode ser usada no 
TK-85, pois os comandos das linhas 40 e 70 são espe- 
ciais deste equipamento. Agora corra para o seu micro 
e faça logo um seguro dos seus arquivos. 


10 DIM AS(9000) 

20 LET Z=0 

30 LET Z6="7A” 

40 LET A=USR 8305 

30 PRINT“CARREGAMENTO” ; “OK” AND 
NOT As“RUIM” AND à 

60 PAUSE 4E4 

70 LET A=USR 8288 

80 PRINT“COPIA”;“0K” AND NOT AG” 
RUIM” AND A 





Pedro Paulo P. Santos-RJ 











Dê um visual todo especial aos seus 


programas, enquanto aprende mais sobre 
os gráficos de seu TRS-80. Isto é... 











FLASH! Assembler, gráficos 
e muita imaginação 


Roberto Quito de Sant'Anna 


ocê já sabe, certamente, que os equipamentos da li- 

nha TRS 80 possuem 64 caracteres gráficos, cada 

um dividido em 6 blocos ou “pixels” — picture cells 

(ver a matéria DISKZAP para mudar, MS nº 25), 
que abrangem os códigos desde 128 até 191; o primeiro com 
todos os pixels apagados e o último com todos acesos. O que 
muitos não sabem é que se caminharmos das extremidades pa- 
ra o centro do intervalo 128-191, a cada passo os caracteres 
considerados serão exatamente o inverso (o negativo) um do 
outro! Exemplificando: 128 é o inverso de 191, assim como 
129 é o de 190, 159 é o de 160, etc. (ver - t 1). Se quiser- 
mos generalizar, é muito fácil: o caráter gráfico 128+x é o in- 
verso do 191 —x. 

Se aprofundarmos um pouco mais a nossa pesquisa a respei- 
to dos caracteres gráficos, chegaremos a duas outras conclusões 
interessantes: a primeira é a de que todos os caracteres gráficos 
têm o bit 7 “setado”, ou seja, igual a 1; e o bit 6 “resetado”, 
ou seja, zero. A explicação é muito simples: todos os caracteres 
gráficos são maiores ou iguais a 128 — que equivale a 10000000 
em binário — e menores que 192,11 em binário. A se- 


155=128+27 164=191-27 


Figura 1 — Caracteres gráficos inversos 











| | Representação Binária: BITS 
CÓDIGO SÍMBOLO [ 7 [ 6 [ sl413 2] 1 [ n 














Figura 2 — Notar a complementaridade dos bits de 0a 5 


gunda conclusão é a de que, olhando-se as reprêsentações biná- 
rias de quaisquer dois pares de caracteres inversos, tal como dis- 
cutido acima, os bits de O a 5 são também os inversos (melhor 
dizendo, os complementos) uns dos outros! A figura 2 sinteti- 
za tudo o que foi dito até agora. 


ASSEMBLER E INVERSÃO DE VÍDEO 


Vejamos agora como aplicar esses conhecimentos através de 
uma simples rotina em linguagem de máquina para realizar a 
inversão de todos os caracteres gráficos de uma tela de vídeo. 
Esta sub-rotina pode ser chamada diretamente do BASIC e, co- 
locada em nossos programas, permitirá a realização de espeta- 
culares efeitos visuais, que em nada ficarão a dever aos dos me- 
lhores jogos de ação. De quebra, podemos progredir um passo 
a mais no aprendizado da linguagem Assembler, pois é exata- 
mente assim que se começa: analisando programas e assimilan- 
do pequenos conjuntos de instruções de cada vez. 

A listagem-fonte de nossa rotina, juntamente com os códi- 
gos-objetos, está na figura 3. A lógica é bastante q e con- 
siste em examinar cada uma das 1024 posições da tela, a partir 
de 3C00H=15360D; verificar se o seu conteúdo é um caráter 
gráfico e, em caso afirmativo substitui-lo pelo seu caráter in- 


Em março, MS vai mostrar como se processa a comunicação de dados 


e Redes locais e A viagem dos dados e Modems, um periférico em voga 
E ainda: Arquivos no NEWDOS, Compiler e Quasar |V - um compilador BASIC 
e um ótimo jogo, e o Solitário, para Sinclair. 








7000 oo400 ORG 7000H 

7000 240030 00440 LO HL, 3C00H 
7003 010004 00420 LD BC, 1024 
7006 7E 00430 TESTA LD A, CHL) 
7007 FEBO 00440 cp 80H 

7009 a808 00150 JR C, SEGUE 
7008 FECO 00160 cp 0COH 

700D 3004 00470 JR NC, SEGUE 
700F 2F 00180 CPL 

7040 C640 00490 ADD A,64 | 
7012 77 00200 LD (HL),A 
7043 23 00240 SEGUE INC HL 

7044 OB 00220 DEC BC | 
7015 78 00230 LD A,B 

7046 B1 00240 OR c 

7017 20ED 00250 JR NZ, TESTA 
7049 C9 00260 RET 

0000 00270 END | 
DODOO TOTAL ERRORS 

34841 TEXT AREA BYTES LEFT 

SEGUE 7013 00240 00450 00470 

TESTA 7006 00130 00250 








Figura 3 — Listagem do programa fonte INVERTE /SCR 


verso ou complementar, retornando ao programa BASIC após 
examinar a última posição. 

O processo se inicia carregando em HL o endereço inicial 
da tela e em BC o número total de posições, 1024 (linhas 110 
e 120), em seguida é iniciado um laço, denominado TESTA, 
abrangendo as linhas de 130 a 250. Nesse laço, o conteúdo da 
posição da tela apontada por HL é carregado no acumulador A 
€ comparado, sucessivamente, com 80H=128D e COH =192D. 
Caso o conteúdo de A seja um símbolo gráfico, a lógica será 
transferida para a linha 180 onde, juntamente com a linha 190, 
a inversão propriamente dita será realizada. 

Tal inversão é feita em duas etapas (acompanhe pela figura 
4): inicialmente, é chamada a instrução CPL, que inverte todos 
os bits de A. O byte daí resultante tem, infelizmente, o bit 7 
igual a zero e o bit 6 igual a 1 e, como tal byte não pode repre- 
sentar um caráter gráfico, a solução para restaurar as coisas é 
simplesmente adiciongr 64D=01000000 ao conteúdo de A (ve- 
ja novamente a figura 4), que passa a conter o símbolo gráfico 
complementar do original e que é, em seguida, transferido para 
o Pç a apontado por HL (linha 200), sendo impresso na 
tela. 

Caso o conteúdo original de A não seja um símbolo gráfico, 
ou após a operação de inversão acima, o controle vai para a li- 
nha 220 (SEGUE), onde o HL é ajustado para apontar a pró- 
xima posição da tela (INC HL); a linha 220 diminui de uma 
unidade o conteúdo de BC; a 230 coloca o conteúdo de Bem 
Aea 240 realiza a operação lógica OR entre C e A. Isto equi- 
vale a comparar entre si os dois bytes de um registrador de 16 
bits (par BC) e, se ambos forem nulos, o resultado será nulo, a 
última posição da tela terá sido atingida e o processo estará ter- 
minado; caso contrário, a linha 250 transfere o controle para a 
linha 130 (TESTA) e o processo é reiniciado. 


APLICAÇÃO 


A figura 5 mostra um exemplo da aplicação da nossa sub- 
rotina a um programa BASIC, aplicável a qualquer modelo ou 











| 
| 





( 





























+ 64 pofifofofofofofo 
onteúdo de A após adição (139) | Ç 


a 
Figura 4 — As operações de inversão 





MICRO SISTEMAS. fevereiro/85 


10 CLS:POKE 16561,0:POKE 16562, 25S:CLEAR 100 

20 FOR I=-256 TO “234:READ A:POKE I,AZNEXT 

30 IF PEEK(16996)=201 POKE 16526, 0:POKE 16527,2555 
Goto so 

40 DEFUSR=-256 

SO FOR 1=15360 TO 16383 STEP 6:POKE 1,183: 
POKE 1+1,1872NEXT 

60 X=USR(D):FOR I=í TO SO:NEXTIGOTO 40 

70 DATA 33,0,60,1,0,4,126,254,128,56,8,254,192,48,4 

80 DATA 47,198,64,119,95,11,120,177,32,297,201 


Figura 5 — Listagem do programa BASIC INVERTE/BAS 











configuração, para obter um bonito efeito visual. A linha 10 
realiza a proteção da memória a partir de 65280; a linha 20 
carrega os 26 bytes da sub-rotina, após convertidos para o sis- 
tema decimal, a partir de —256 (lembre-se: 65280 — 65536 
= 256); a linha 30 verifica se o sistema tem ou não disco; a li- 
nha S0 preenche a tela com símbolos gráficos de uma forma 
muito interessante e, finalmente, a linha 60 chama a sub-rotina 
para execução, constituindo um laço infinito. 

Agora é só “bolar”, por exemplo, uma abertura para o seu 
programa, encaixar no mesmo a sub-rotina e, tal como na linha 
60, chamá-la quantas vezes quiser. Outra sugestão seria a de, em 
um programa que exigisse alguma resposta do usuário, “explo- 
dir” a tela em caso de erro. A sua imaginação é o limite! E 


Roberto Quito de Sant'Anna é engenheiro de telecomunicações, forma- 
do pelo Instituto Militar de Engenharia. Professor da cadeira de Infor: 
mática da Academia Militar das Agulhas Negras desde agosto de 1982, é 
também colaborador da Micro-Maxi Computadores e Sistemas, como 
analista de sistemas. Colabora com a revista MICRO SISTEMAS há bas- 
tante tempo, sendo responsável pela “Rodada MS”. 











amb, 
Go eraft 


DIDEDTESTO 


você já encontra na 


SECCO 





computer store 


O seu microcomputador CRAFT Il plus, 
pode agora ter acesso ao VIDEOTEXTO* - o 
banco de dados da TELESP, com imagens à 
cores, através de uma interface RS 232-C, um 
modem assíncrono e um software dedicado, 
à venda e em demonstração na SACCO. 


Torne-se um usuário do VIDEO-TEXTO, 
opcionalmente também do Projeto Cirandão, 
e garanta hoje o seu presente de Natal. A sua 
família também vai poder usar e gostar 
muito. 

* São Paulo - Santos - Campinas 


SACCO Computer Store 


Al. Gabriel Monteiro da Silva, 1229 - J. Paulistano 
São Paulo - SP - Tel.: (011) 852-0799 






















SOFTWARE 


Visicalc para CP-300, igual ao 
do CP-500. Acompanha manual e 
tabela de comandos. Cláudio, tel.: 
(011) 61-6884, após 20hs. 


Compro programas para TRS 
80 — Cassete e T|-59. Douglas W. 
Heckmann — R. Lauro Linhares, 
227 ap. 102 — Florianópolis — 
sc. 


. Pacote de cálculo numérico p/ 
linha Sinclair. Fita com 18 progra- 
mas, incluindo: Sistema Linear, 
Inversão de Matriz, Autovetores, 
Sistema não-linear, Calculador de 
Fórmulas, Zeros de Funções, Re- 
gressão Linear, Interpolação, In- 
tegral, Série de Fourier, Gráfico 
de f(x), Superfícies, Curvas para- 
métricas, Transformações no pla- 
no complexo, Equações diferen- 
ciais ordinárias (com gráficos). 
Acompanha manual. Preço 30 
ORTN. Envie cheque nominal à 
Luiz Henrique Duczmal — Rua Ja- 
va, 186 — Nova Suíça — Belo Ho- 
rizonte — MG — CEP: 30000. 


Vendo ou troco programas pa- 
ra microcomputadores Apple e si- 
milares entre jogos e aplicativos 
de Engenharia. Bom preço. Escre- 
va para João Bosco de Castro — 
R. Licinio Leite Machado, 59 — 
Santana ou tel.: (0123) 22-0420. 


Apple & Compatíveis. Progra- 
mas e manuais — solicite listas — 
Dominio Publico Soft & Man — 
Cx. Postal 201 — S. Bernardo do 
Campo — CEP: 09700 — S. Paulo. 


. Soft para Apple — Cr$ 18.000 
disco cheio. 500 títulos. Peça ca- 
tálogo — Alfamicro — Cx. P. 21193 
—S. P. 


- Commodore-64, assessoria, 
software, manutenção e acessórios. 
Av. Brig. Faria Lima, 1644 s/ 26 
São Paulo — SP. Fone (011) 843- 
1065. 

Linha TRS80 Color 300 pro- 
gramas a sua escolha pelo catálo- 
go. José Luiz Pereira — Cx. P. 
1536 — Foz do Iguaçu — CEP: 
85890 — PR. 


Soft CP500 (disco) todo tipo 


você é quem decide o que, quando e como anunciar nos 
Classificados MS. Quanto você terá que pagar? Isso também é 


decisão sua, Preste atenção: 


e cada linha de texto (30 toques, incluindo os espaços em branco) 


custa Cr$ 2.000,00; 


e linhas incompletas serão cobradas como inteiras; 


troco — Paulo Cx. P. 6125 — 13100 
— Campinas SP. (0192) 41-8860. 


Programas p/Apple: aplicativos, 


utilitários, compiladores, lingua- 
gens e jogos tel.: (021) 239-0449 
Stela. 


EQUIPAMENTOS 


- Vendo unidade gravadora de 
memória Eprom (2716-2K/2732- 
4K) p/adaptação em micros c/ló- 
gica Sinclair. Tratar c/José Carlos. 
Tel.: (011) 220-4061 (noite). 


CLUBES 


- O NETC — NÚCLEO DE EN- 
SINO DE TECNOLOGIA E CIÊN- 
CIA, estará promovendo durante 
os meses de Fev./Mar. os seguin- 
tes cursos: Eletrônica Digital | e 
Il; Computadores e Microcompu- 
tadores Digitais — Hardware; Pro- 
gramação Assembly Z-80 e 8080/ 
85; Hardware de Sistemas Basea- 
dos no MP Z-80, 8080/85 6.800; 
Interfaces A/D e D/A; Hardware e 
Software de Teleprocessamento. 


Todos os cursos são integralmen- 
te apostilados e retroprogetados, 
contando com aulas práticas em 
laboratórios de Hardware e Soft. 
ware amplamente equipados com 
módulos de treinamento, micro: 
computador TRS-80 e micros de 
desenvolvimento da Suporte En: 
genharia. Informações e pedidos 
de catálogos de cursos: Rua Ál- 
varo Alvim nº 37 — 2º andar — 
Fone (021) 220-1989, Centro — 
CEP: 20031 — Rio de Janeiro — 
RJ, das 09:00hs às 22:00hs. 





CURSOS 


- O Centro Cultural Cândido 
Mendes está com inscrições aber. 
tas para os seguintes cursos: intro: 
dução aos Microcomputadores 
(16:00hs) — Linguagem Basic 
(20:00hs) — Basic Para Advoga: 
dos (28:00hs) — Linguagem de 
Máquina p/TK (20:00hs) — Micro 
computadores p/Crianças — Mod. 
ti (12:00hs) — Microcomputado- 
res p/Crianças — Mod. Ill (12:00hs). 
Inf. e inscrições à Rua Joana An: 
gélica, 63/69 and. Tel.: 267-709€ 
ou 267-7141 ramal 8 às 13:00hs. 


QUEM MANDA 
NESTA PÁGINA SOU EU! 


Apoiado! Equipamentos, Software, Cursos, Clubes e Diversos: 


eo próprio anunciante deve checar o valor de seu anúncio com o 


número de linhas que ele contiver; 


e o anúncio deve vir acompanhado de um cheque nominal à ATI 


Editora Ltda; 


Os textos devem ser datilografados ou escritos em letra de fôrma, 
obedecendo as 30 batidas por linha. Veja um exemplo: 
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Maiores informações pelos telefones: (021) 262-5259 — RJ ou (011) 853-7758 — SP. 
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SOFTWARE — CP/M | 





e Administração Imóveis/ 
Condomínios 

* Controle Administrativo/ 
Financeiro p/Clubes, Escolas, 
Corretoras Seguros 

e Controle Operacional Hotéis 

e Correção Monetária balanço 

e Faturamento Serviços Médicos 
(Convênios) 

e Formulação/Cálculo de Rações 

* Gerenciamento Rebanhos Gado 

Leiteiro e Gado de Corte 






Praia de Botafogo nº 210 — C-01 
CEP 22250 — Botafogo — RJ 
Tel. PBX (021) 551-6699 





Sinclair Place 


O lugar compatível 
com você e seu 
micro. 


— Micros 


| E — Acessórios 
| — Software 
— Livros 
— Revistas 





Rua Dias da Cruz, 215 — loja 
107 - Rio de Janeiro - RJ 
Tel.: 594-2699 































VIR O PURA 
em INFORMÁTICA 


HARDWARE 

Compra e venda de microcomputadores 
ASSINATURAS 
Listagens de prograrr 
Sinclair 

SOFTWARE 
Desenvolvimento, venda e locação 
SUPRIMENTOS E ACESSÓRIOS 
Diskettes, drives, joysticks, forr 
continuos, etc 
CONSULTORIA E SERVIÇOS 
EMPRESARIAIS 

Escntórios, lojas, escolas e consultórios 
CONSULTE-NOS 
SEM COMPROMISSO 
TROPICAL INFORMÁTICA 
Av NOVA INDEPE ai 
FONE: (011) 5: 
BROOKLIN - SÃO PA sP 


as para a linha 


mulários 




















COMPUTADORES 
E PERIFÉRICOS 


UNITRON 

MICROCRAFT 
VENDAS 
LEASING 


PROGRAMAS 
CURSOS 


ASSISTÊNCIA 
TÉCNICA 


Av. Mal. Câmara, 271 s/loja 101 





Tel: (021) 262-3289 — R.). 


















ALBAMAR 


ELETRÔNICA LTDA. 


FITAS CASSETES 


TAMANHOS 
[61-04 To N 04 E:8 010) 
C30 e outros 


eFITAS 
MAGNÉTICAS 
1200 e 2400 pés 





O DISKETTES 
51/4e8” 


IMPOSTO DE RENDA 
POR COMPUTADOR 


Use os modernos 


Computadores Cobra 


para fazer sua 
declaração: 


e Segurança absoluta 


e Rapidez 
e Técnicos 
especializados 





PROJEDATA 








Rua Conde de Leopoldina 
270-A São Cristóvão — RJ 
Teis.: (021) 580-6729 

580-8276 


PARA 
PROBLEMAS 
TÉCNICOS 
USE 

A CABEÇA 


DESENHO - PINTURA - ENGENHARIA 
PAPELARIA - ESCRITÓRIO - MÁQUINAS P/ 
ESCRITÓRIO E SUPRIMENTOS EM GERAL 
O BEL-BAZAR 
ELETRÔNICO 

onde você AINDA encon! 
e qualidade de ANTIGAMENTE, 

AV. ALMIRANTE BARROSO, 81 - Lu 
TEL: 2862.9229 - 2682-9088 - 240-8410 - 221-8282 
RIO DE JANEIRO - CASTELO 








PARA PROBLEMAS COM MATERIAL DE 





Pça. Tiradentes nº 10 

sala 706 Centro-RJ. 

Tels.: (021) 242-3433 
571-8447 
258-7599 













Pare de Sonhar... 


Os leitores de MICRO SISTEMAS não têm bola 
de cristal para adivinhar a cor de seus produtos. 


Av. Pres. Wilson n.º 165 — gr. 1.210/16 — TELS.: 


ANUNCIE EM MICRO SISTEMAS, 
E TENHA UM MACRO RETORNO. 


CEP: 20.030 — Rio de Janeiro — RJ. 


Rua Oliveira Dias n.º 153 — Jd. Paulista — Tel: 


CEP: 01433 — São Paulo — SP 


(011) 853-3229/853-3152 


(011) 583- 3800/8537758 


sisttio 











SUGESTÕES 
PARA O 
PROGRAMADOR BASIC 





SAVAGE, E. R., Sugestões para 
o Programador BASIC, Editele 
Editora Técnica Eletrônica Ltda. 


BB Destinado tanto a iniciantes 
quanto a programadores já expe- 
rientes, este livro traz uma série 
de sugestões e sub-rotinas que 
permitem otimizar a elaboração 
de programas, tornando-os mais 
compactos, elegantes e de exe- 
cução mais rápida. 

Os diversos tópicos e sub-ro- 
tinas são expostos de maneira 
clara e detalhada, mostrando co- 
mo e porque funciona cada sub- 
rotina e quando e como utilizá- 
la. Quando necessário, são utili- 
zados fluxogramas que contri- 
buem para um maior esclareci- 
mento lógico. 

Ao todo são 50 sugestões e 
sub-rotinas de apoio (escritas no 
BASIC Nível Il do TRS-80 e 
compatíveis, mas que podem 
rodar em outras máquinas me- 
diante pequenas adaptações), 
incluíndo as variações possíveis 
para as mais diversas aplicações. 


Pistip BIN-DOR. 


EDITORA CAMPUS 





EIN-DOR, Philip; SEGEV, Eli, 
Administração de Sistemas de 
Informação, Editora Campus. 


BHO cesenvolvimento de sistemas 


administrativos de informação é 
um processo complexo com nu- 


70 


merosos aspectos que abrangem 
uma grande variedade de detalhes. 
Este livro tem como primeiro ob- 
jetivo organizar esses aspectos coe- 
rentemente, agrupando-os em tó- 
picos importantes, de maneira que 
o leitor possa analisar o material 
sistematicamente. 

Em geral, as obras sobre MIS 
tratam apenas de algumas das vá- 
rias questões existentes neste cam- 
po, ressaltando-as como se fossem 
as únicas de importância. Em Ad- 
ministração de Sistemas de Infor- 
mação cada questão é única e pos- 
sui seu próprio conjunto de pon- 
tos críticos. Por isso, o livro não 
apresenta receitas para o desenvol- 
vimento e gestão de um MIS, mas 
um plano de contingência, sob a 
forma de uma lista de verificação 
que poderá ser aplicada na análise 
dos fatores de êxito e fracasso de 
um sistema de informações à ad- 
ministração. 





BROONER, E. G., Gerência 
de Bases de Dados Para 
Microcomputadores, Editora 
Campus. 


= A maioria das aplicações de 
computadores requer armazena- 
mento de dados, mas para se obter 
o máximo de proveito das infor- 
mações mais complexas é necessá- 
rio o uso de técnicas para sua ma- 
nipulação. Na verdade, são muitas 
as técnicas que podem ser utiliza- 
das para a manipulação de dados 
e, por isso mesmo, o usuário faz 
frequentemente perguntas do tipo: 
por que deveria o método de bus- 
ca binária ser preferido a alguns 
outros métodos... e será que deve- 
ria sê-lo? Se o processo de hashing 
é tão rápido, por que não é o úni- 
co método de procura utilizado? 
Por que certas bases comerciais 
são, aparentemente, tão simples, 
enquanto outras exigem uma dú- 
zia de programas e diversos dispo- 
sitivos propulsores de discos? Es- 
ses são alguns dos assuntos discu- 
tidos em Gerência de Bases de Da- 
dos para Microcomputadores. 


Através de uma abordagem 
simples e objetiva, este livro expli- 
ca muitos dos métodos utilizados 
para a manipulação de dados, for- 
necendo a orientação necessária 
para o uso dos recursos de busca e 
classificação, o linking e o hashing. 
O autor enfatiza os aspectos prá- 
ticos, descreve e avalia inúmeras 
aplicações comerciais, apresentan- 
do exemplos do uso simultâneo 
de diversos arquivos tais como ati- 
vo fixo, inventário e folha de 
pagamento. 





COUCEIRO, L. A.; 
BARRENECHA, H. F., Sistema 
de Gerência de Bancos de Dados 
Distribuídos, Livros Técnicos e 
Científicos Editora. 


| Este livro apresenta importan- 
tes aspectos relacionados com o 
desenvolvimento de projetos de 
Sistemas de Gerenciamento de 
Banco de Dados Distribuídos 
(SGBDD) e tem como objetivo 
avaliar problemas desta área, assim 
como detalhá-los e estabelecer o 
nível atual do conhecimento sobre 
o assunto, além de definir e locali- 
zar métodos e modelos que estão 
sendo adotados para a solução des- 
ses problemas. 

Para alcançar esses objetivos, 
foi feita, no capítulo 2, uma con- 
ceituação dos SGBDOD, estabele- 
cendo um conjunto de conceitos 
básicos que caracterizam e permi- 
tem a análise das principais carac- 
terísticas funcionais desses siste- 
mas. 

O capítulo 3 trata de um dos 
problemas mais importantes na 
área dos SGBDD: a determinação 


dos locais de armazenamento dos 
arquivos e diretórios do banco de 
dados nos diversos nós da rede. 

No capítulo 4 encontramos as 
estratégias de processamento de 
consultas — distribuída e centra- 
lizada — e também a análise dos 
algoritmos correspondentes. 

O quinto capítulo traz um es- 
tudo dos tipos de algoritmos para 
efetuar o controle de concorrên- 
cia. Estes algoritmos podem ser 
baseados na ordem de escalona- 
mento ou em técnicas de exclusão 
mútua. Além disso, também são 
apresentados no capítulo 5 alguns 
conceitos básicos que facilitam a 
compreensão do tema. 


PRATES, R., Cartão de 
Referência — CP-500, Livros 
Técnicos e Científicos Editora. 


BB quantas vezes você não teve 
que interromper uma digitação 
para consultar o manual do equi- 
pamento porque esqueceu algum 
comando, quer verificar uma fun- 
ção especial ou mesmo ter acesso 
ao código de erro? Agora, com o 
Cartão de Referência do CP-500, 
esse trabalho não será mais neces- 
sário. Ele é um instrumento de 
grande valia na programação e no 
uso do CP-500, pois abrange to- 
dos os comandos do DOS-500; os 
apêndices DEBUG, MERGE, DIR, 
HELP, LIB e FREE; códigos de 
erro do DOS-500; caracteres espe- 
ciais; funções especiais do tecla- 
do; mapa de memória do CP-500; 
tabela de conversão; memória do 
teclado; organização do disquete; 
caracteres kana; subcomandos de 
edição; funções, mensagens e có- 
digos de erro, limites e coman- 
dos da linguagem BASIC; opera- 
ções especiais; caracteres de mo- 
delo de edição para PRINT 
USING; palavras reservadas; tabe- 
la de caracteres de controle do 
vídeo CHRS$; tabela de caracte- 
res do vídeo/impressora; abrevia- 
turas e caracteres especiais do 
BASIC; códigos de compreensão 
de espaço e todas as declarações 
utilizadas no BASIC. Este cartão 
é uma publicação inédita — a pri- 
meira, no gênero, de autor brasi- 
leiro para equipamento nacional. 
Devido ao seu formato sanfo- 
nado, o Cartão de Referência do 
CP-500 é de fácil manuseio, e 
qualquer informação pode ser ra- 
pidamente encontrada, evitando 
consumo de tempo e esforço. 





Endereço das Editoras: 


Editora Campus — Rua Japeri, 35, CEP 20261, Rio de Janeiro; 
Livros Técnicos e Científicos Editora — Av. Churchil, 94, 4º andar, 


CEP 20000, Rio de Janeiro; 


Editele — Editora Técnica Eletrônica Ltda. — Rua Casa do Ator, 


1060, CEP 04546, São Paulo. 
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CP400 COLOR. 


VOCÊ TEM QUE ESTAR PREPARADO 
PARA SE DESENVOLVER COM OS 
NOVOS TEMPOS QUE ESTÃO AÍ. E O 
CP 400 COLOR É A CHAVE DESSA 
EVOLUÇÃO PESSOAL E PROFISSIONAL 





POR QUÊ? 
PORQUE O 
CP 400 COLOR É 
UM COMPUTADOR 
PESSOAL DE 
TEMPO INTEGRAL 
UTIL PARA A 
FAMÍLIA TODA, O DIA INTEIRO 
NA HORA DE SE DIVERTIR, POR 
EXEMPLO, É MUITO MAIS EMOCIO- 
NANTE PORQUE, ALÉM DE OFERECER 
JOGOS INÉDITOS, É O UNICO COM 
2 JOYSTICKS ANALÓGICOS DE ALTA 
SENSIBILIDADE, QUE PERMITEM MO- 
VIMENTAR AS IMAGENS EM TODAS 
AS DIREÇÕES, MESMO. NA HORA 
DE TRABALHAR E ESTUDAR, O CP 400 
COLOR MOSTRA O SEU LADO SÉRIO 
MEMÓRIA EXPANSÍVEL, PORTA PARA 
COMUNICAÇÃO DE DADOS, SAÍDA 
PARA IMPRESSORA, É UMA ÓTIMA 
NITIDEZ COM IMAGENS COLORIDAS. 
COMO SE TUDO ISSO NÃO 
BASTASSE, A PROLOG [NDA OFE 
RECE A GARANTIA DE QUALIDADE 
DE QUEM E LIDER NA TECNOLOGIA 
DE COMPUTADORES, E O PREÇO 
MAIS ACESSÍVEL NA CATEGORIA 
NUMA FRASE: SE VOCÊ NÃO 
QUISER CHEGAR ATRASADO AQ FU 
TURO, COMPRE SEU CP 400 COLOR 
IMEDIATAMENTE 
EMOÇÃO E INTELIGÊNCIA NUM 
EQUIPAMENTO SÓ. 
* MICROPROCESSADOR: OSO9E COM 

















ESTRUTURA INTERNA DE 
16 BITS E CLOCK DE FREQUÊNCIA 
DE ATÉ 1.6 MHZ 
* POSSIBILITA O USO DE ATÉ 
CORES, E TEM UMA RESOLUÇÃO 
GRAFICA SUPERIOR A 49.000 
PONTOS 
e MEMÓRIA ROM: 16K BYTES 
PARA SISTEMA OPERACIONAL E 
INTERPRETADOR BASIC. 
* MEMÓRIA RAM: O CP 400 COLOR 
ESTA DISPONÍVEL EM DOIS MODELOS: 
* MODELO 16K 
EXPANSÍVEL A 
= GA BYTES 
* MODELO 64X: 
e ici yr 
; QUANDO USADO 
COM DISQUETES 
(DISPONÍVEL 
EM DEZEMBRO), 
* O CP 400 COLOR DISPOE DE 
CARTUCHOS DE PROGRAMAS COM 
16K BYTES DE CAPACIDADE 
QUE PERMITEM O CARREGAMENTO 
INSTANTANEO DE JOGOS, 
LINGUAGENS E APLICATIVOS COMO: 
BANCO DE DADOS, PLANILHAS 
DE CALCULO, EDITORES DE TEXTOS 
APLICATIVOS FINANCEIROS 
APLICATIVOS GRAFICOS, ETC 
* SAÍDA SERIAL RS 232 € QUE 
PERMITE COML NICAÇÃO DE DADOS 
ALEM DO QUE, ATRAVÉS DESTA 
PORTA, VOCÊ PODE CONECTAR 








* PORTA PARA 


QUALQUER IMPRESSORA SERIAL 
OU ATÉ MESMO 
FORMAR UMA 
REDE DE TRABA 
LHO COM 
OUTROS MICROS 





GRAVADOR CAS- MB 
SETE COM GRAVAÇÃO E LEITURA 
DE ALTA VELOCIDADE. 











e SAÍDAS PARA TV EM CORES E MONI 


TOR PROFISSIONAL 


* DUAS ENTRADAS PARA JOYSTICKS 





ÓGICOS QUE OFERECE 
b IÇÕ NATI 
ENQUANTO OUTROS TEM SOMENTE 
8 DIREÇÕES 





* AMPLA BIBLIOTECA DE SOFTWARE 
JA DISPONIVEL 
* ALIMENTAÇÃO: 110-220 VOLTS 


MICROCOMPUTADORZCOLOR 


VEJA, TESTE E COMPRE 
SEU CP 400 COLOR NOS MAGAZINES 
E REVENDEDORES PROLÓGICA. 








QUEM TEML UM, TEM FUTURO. 


Apresentamos 0 pagar, faz sua programação financeira, | que se preza, ele tem teclado 


efetua a folha de pagamentos & profissional, aceita monitor, diskette, 


| K 2000 I administra minuto a minuto as suas impressora & já vem com interface. 


H da atividades. Além de poder ser ligado ao seu 
eTo C Ô programa Detalhe importante: o novo televisor (cores ou P&B), oferecendo 
mais famoso TK 2000 ||, com Multicalc, pode som & imagem da melhor qualidade. 
intercambiar planilhas com Portanto, peca logo uma 
O mun O. computadores da linha Apple”. demonstração do novo TK 2000 ||, nas 
E, como todo business computer | versões 64K ou 128K de memória 
À mais nova estrela do show 
business só espera por isto para 
estrear no seu negócio. 


De hoje em diante nenhuma 
empresa, por menor que seja, pode 
dispensar 0 TK 2000 Il. Por que? 

O novo TK 2000 Il roda o “— A 
Multicalc: a versão Microsoft do Do ; Preco de lancamento* (128 K): 
Visicalc? o programa mais famoso em - C$ 2.449.850 
todo o mundo. 

Isto significa que, com ele, você 


controla estoques, custos, contas a 8 computadores pessoais 





MICRODIGSITAL 





* Sujeno a alteração sem prévio aviso. 


